Fórum Como Listando os campos da tabela num Memo #189759
20/10/2003
0
e aí pessoal
eu estou dtdelphi26 e lá tem um exemplo que não funcionou. ex:
Procedure ListaCampos(TB:Ttable;M:Tmemo);
Begin
M.Lines.Assign(TB.ListField);
End;
Exemplo:
Procedure TForm1.Button1Click(Sender:TObject);
Begin
ListaCampos(Table1,Memo1);
end;
//Eu declarei StdCtrls e DbTables mesmo assim não deu certo
se alguem puder me ajudar.
Evaldo
eu estou dtdelphi26 e lá tem um exemplo que não funcionou. ex:
Procedure ListaCampos(TB:Ttable;M:Tmemo);
Begin
M.Lines.Assign(TB.ListField);
End;
Exemplo:
Procedure TForm1.Button1Click(Sender:TObject);
Begin
ListaCampos(Table1,Memo1);
end;
//Eu declarei StdCtrls e DbTables mesmo assim não deu certo
se alguem puder me ajudar.
Evaldo
Odlave
Curtir tópico
+ 0
Responder
Posts
21/10/2003
Tuiobecker
Olá assim funciona
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to (TbCidades.FieldCount - 1) do
Memo1.Lines.Add(TbCidades.Fields[i].DisplayName);
end;
flw
tuiobecker
procedure TForm1.Button1Click(Sender: TObject);
var
i : integer;
begin
for i := 0 to (TbCidades.FieldCount - 1) do
Memo1.Lines.Add(TbCidades.Fields[i].DisplayName);
end;
flw
tuiobecker
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)