Código Delphi [-]procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin for i:= 0 to Query1.fieldcount -1 do showmessage(query1.fields[i].FullName ); end;
procedure TForm1.Button1Click(Sender: TObject); var I:integer; begin for i:= 0 to Query1.fieldcount -1 do showmessage(query1.fields[i].FullName ); end;