Adicionando Fields em run-time [bds2007 dbexpress]
29/05/2008
0
Possuo um aplicação, onde as telas de cadastro são geradas por herança, e a pesquisa desta tela tem que ser bem genérica. Possuo um ClientDataSet(cdsCadastro) que é o objeto que manipula os dados(Insert, Update, Deletes) e com a clausula SQL(select ... from TabelaTal) e outro ClientDataSet(cdsPesquisa).
No Create do Form passo a clausula SQL do cdsCadastro para o cdsPesquisa, no entanto preciso que o cdsPesquisa herde os TFields do cdsCadastro com todas as suas propriedades modificadas(DisplayName, DisplayFormat, Visible,...). A rotina que tentei implementar(segue rotina abaixo) está dando erro de memória sempre que fecho o form.
Alguém ai pode me ajudar?
Desde já Obrigado a todos
[color=blue:8fa028e1c8][b:8fa028e1c8]procedure TfrmCadastro..FormCreate(Sender: TObject);
var
i: integer;
begin
cdsPesquisa.CommandText := dtsCadastro.CommandText;
with cdsPesquisa do
begin
cdsPesquisa.Fields.Clear;
for i := 0 to cdsCadastro.FieldCount - 1 do
cdsPesquisa.Fields.Add(cdsPesquisa.Fields[i]);
end;
end;[/b:8fa028e1c8][/color:8fa028e1c8]
Atenciosamente,
Yale Leite
Yale.leite
Posts
29/05/2008
Emerson Nascimento
29/05/2008
Yale.leite
SQL-Server 2005
Delphi 2007
DbExpress[SqlDataSet -> DataSetProvider -> ClientDataSet - DataSource]
29/05/2008
Emerson Nascimento
o tópico citado foi útil de alguma forma ???
.
30/05/2008
Yale.leite
Acabei buscando outra maneira de montar a pesquisa.
Obrigado amigo!
Clique aqui para fazer login e interagir na Comunidade :)