Fórum Função dinâmica de Consulta #348001

:?:
Olá a todos.
Estou com dificuldades na criação de uma função que permita consultar tabelas do sistema. A idéia é criar uma lista com os campos da tabela que desejo consultar. Abaixo especifico meu trecho de código.

procedure TFrM1300.EdtCodClienteExit(Sender: TObject);
var
UmaLista:TstringList;
Parametros:TParametros;

begin
UmaLista := TstringList.create;

parametros := Tparametros.Create;
parametros.Titulo := ´Código´;
parametros.Campo := ´CLI_COD´;
parametros.Tamanho := 30;

parametros := Tparametros.Create;
parametros.Titulo := ´Razao Social´;
parametros.Campo := ´CLI_RAZAOSOCIAL´;
parametros.Tamanho := 300;

M_Aux := ´SELECT * FROM CLIENTES ´;

PesquisaNaTabela( UmaLista, M_Aux, 15) : Boolean;

end;


function PesquisaNaTabela( ListaDeDados:TStringList; CmmText:String; MaxDigitos:Integer ) : Boolean;
var
i : integer;
Coluna : TColumn;

>>>>>>>> o problema esta nesta rotina, naõ consigo obter os dados da lista que criei na procedure que chamou está função.

begin
With Coluna do
begin
for i := 0 to ListaDeDados.Count - 1 do
Coluna := FrPesquisa.DbGrid1.Columns.Add;
Coluna.Title.Caption := ListaDeDados.Objects[i].Titulo;
Coluna.FieldName := ListaDeDados.Objects[i].Campo;
Coluna.Width := ListaDeDados.Objects[i].Tamanho;
end;

try
FrPesquisa.EdtLocalizar.MaxLength := MaxDigitos;
FrPesquisa.ShowModal;
finally
FrPesquisa.Release;
FrPesquisa.Free;
FrPesquisa := Nil;
end;

end;

Abraços

Neto