Passando e Recebendo ClientDataSet COMO Parametro
27/04/2017
0
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
Curtir tópico
+ 0
Responder
Posts
27/04/2017
Raimundo Pereira
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
Responder
27/04/2017
Hermeson Gonçalves
opa... quero passar um ClientDataset como parametro
Responder
27/04/2017
Raimundo Pereira
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
Responder
Clique aqui para fazer login e interagir na Comunidade :)
