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


Odlave

Odlave

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


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar