Código Delphi [-] procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:= 0 to ADOQuery1.FieldList.Count - 1 do // Nombres de los campos con la tabla delante en Memo. Memo1.Lines:= Add('NOMBRE_DE_TABLA.' + ADOQuery1.FieldList.Fields[i].FieldName); end;
procedure TForm1.Button1Click(Sender: TObject); var i: Integer; begin for i:= 0 to ADOQuery1.FieldList.Count - 1 do // Nombres de los campos con la tabla delante en Memo. Memo1.Lines:= Add('NOMBRE_DE_TABLA.' + ADOQuery1.FieldList.Fields[i].FieldName); end;