Eigenschaft FieldCount: Integer
//In diesem Beispiel wird ein Meldungsfenster mit den Namen aller Felder in einer Tabelle angezeigt.Nur Windows:procedure TForm1.Button2Click(Sender: TObject);var i: Integer; Info: String; begin Info := 'The fields of table ' + Table1.TableName + ' are:'#13#10#13#10; for i := 0 to Table1.FieldCount - 1 do Info := Info + Table1.Fieldsi.FieldName + #13#10; ShowMessage(Info); end;Plattformübergreifend:procedure TForm1.Button2Click(Sender: TObject);var i: Integer; Info: String; begin if SQLDataSet1.CommandType = ctTable then begin Info := 'The fields of table ' + SQLDataSet1.CommandText + ' are:'#10#10; for i := 0 to SQLDataSet1.FieldCount - 1 do Info := Info + SQLDataSet1.Fieldsi.FieldName + #10; ShowMessage(Info); end; end;