使用 Delphi (Dbexpress) 获取列名

var
  SQLConnection1: TSQLConnection;
  SQLQuery1: TSQLQuery;
  FieldDef: TFieldDef;
begin
  SQLConnection1 := TSQLConnection.Create(nil);
  SQLConnection1.DriverName := 'MySQL';
  SQLConnection1.Params.Values['HostName'] := 'localhost';
  SQLConnection1.Params.Values['Database'] := 'mydatabase';
  SQLConnection1.Params.Values['User_Name'] := 'username';
  SQLConnection1.Params.Values['Password'] := 'password';
  SQLConnection1.Open;

  SQLQuery1 := TSQLQuery.Create(nil);
  SQLQuery1.SQLConnection := SQLConnection1;
  SQLQuery1.SQL.Text := 'SELECT * FROM mytable';
  SQLQuery1.Open;

  for FieldDef in SQLQuery1.FieldDefs do
  begin
    ShowMessage(FieldDef.Name);
  end;

  SQLQuery1.Close;
  SQLConnection1.Close;
  SQLQuery1.Free;
  SQLConnection1.Free;
end;