Como Listando os campos da tabela num Memo
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
Curtidas 0
Respostas
Tuiobecker
20/10/2003
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
GOSTEI 0