Passando e Recebendo ClientDataSet COMO Parametro

Delphi

Banco de Dados

Firebird

27/04/2017

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
Hermeson Gonçalves

Hermeson Gonçalves

Curtidas 0

Respostas

Raimundo Pereira

Raimundo Pereira

27/04/2017

Boa tarde.
Meio confuso com a pergunta.

Qual é seu real objetivo e o que você já tem pronto
GOSTEI 0
Hermeson Gonçalves

Hermeson Gonçalves

27/04/2017

opa... quero passar um ClientDataset como parametro
GOSTEI 0
Raimundo Pereira

Raimundo Pereira

27/04/2017

Veja uma função de locate que criei.

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
POSTAR