Passando e Recebendo ClientDataSet COMO Parametro
Pessoal, já busquei em vários sites, mas nao encontrei nada. Quero saber como posso passar o parametro como TClientDataset. Fiz uma function que dependendo da Tab ativa, ele irá mandar o clientdataset correspondente para essa function, como faço isso??? ajuda!!!!
segue exemplo:
If TabVendedores ativa Then
gerarxls(Tabela)
function geraxls
tabela.first
tabela,etcccccccc
segue exemplo:
If TabVendedores ativa Then
gerarxls(Tabela)
function geraxls
tabela.first
tabela,etcccccccc
Hermeson Gonçalves
Curtidas 0
Respostas
Raimundo Pereira
27/04/2017
Boa tarde.
Meio confuso com a pergunta.
Qual é seu real objetivo e o que você já tem pronto
Meio confuso com a pergunta.
Qual é seu real objetivo e o que você já tem pronto
GOSTEI 0
Hermeson Gonçalves
27/04/2017
opa... quero passar um ClientDataset como parametro
GOSTEI 0
Raimundo Pereira
27/04/2017
Veja uma função de locate que criei.
Chamando a Função
Então informei para minha função uma determinada Tabela, ativei a mesma, realizei o locate e obtive o retorno.
Da mesma forma você pode seguir para passar um clientdataset, query, tabela e etc.. por paramentro
Function TFP.BuscarRegistro(Cliente_DTS_Busca:tDataSet; Campo_Pesquisa,Valor_procurado:String):string; begin Cliente_DTS_Busca.Open; if Cliente_DTS_Busca.RecordCount>0 then if Cliente_DTS_Busca.Locate(Campo_Pesquisa,Valor_procurado,[]) then begin Result:='Encontrado'; end else begin Result:='Não - Encontrado'; end; end;
Chamando a Função
ShowMessage(BuscarRegistro(dm.FILIAL,'IP','10.0.0.8'));
Então informei para minha função uma determinada Tabela, ativei a mesma, realizei o locate e obtive o retorno.
Da mesma forma você pode seguir para passar um clientdataset, query, tabela e etc.. por paramentro
GOSTEI 0