Name von Tabellenspalten ermitteln

[MrSpock]

Hallo Gambit,

direkt in der OH zum Thema Fields findest du ein Beispiel:

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);

var
   i: Integer;
   Info: String;
begin
   Info := 'Die Felder von Tabelle ' + Table1.TableName + 
           ' sind:'#13#10#13#10;
   for i := 0 to Table1.FieldCount - 1 do
      Info := Info + Table1.Fields[i].FieldName + #13#10;
   ShowMessage(Info);
end;