Spaltennamen einer Tabelle ermitteln

[nahpets]

Hallo,

reicht da nicht

Delphi-Quellcode:

for I := 0 to QueryAW_Variabel.FieldCount - 1 do 
begin 
  CB_Spalte1.Items.add(QueryAW_Variabel.Fields[I].FieldName); 
end;

aus?

Was für eine Query benutzt Du?
TQuery?

Die hat das Attribut FieldList, ein Nachfahre von TStrings. Bei TAdoQuery und TIBQuery müsste das auch gehen.

Da dürfte dann auch so ein EinzeilerCB_Spalte1.Items.Text := QueryAW_Variabel.FieldList.Text; im Rahmen des Möglichen sein.