[Delphi 5.0] Feldliste in Query erweitern

[Soltac]

Hallo,

unter Delphi gibt es bei einer Query folgende Möglichkeit:

"rechter Mausklick - FeldEditor - rechter Mausklick - Alle Felder hinzufügen"

Dieses würde ich jetzt gerne erst zur Laufzeit ausführen, weil erst während der

Laufzeit ein neues Feld dazukommt.

Jetzt bin ich (fast) verzweifelt auf der Suche nach dem benötigten Code!

mfg

soltac

[grueni]

Das geht beispielsweise so:

var

  T: TIntegerField;

begin

  Query1.Close;

  T := TIntegerField.Create(Self);

  T.FieldName := 'Quantity';

  T.Name := Query1.Name + T.FieldName;

  T.Index := Query1.FieldCount;

  T.DataSet := Query1;

  Query1.FieldDefs.UpDate;

  Query1.Open;


end; 

Das Code-Beispiel ist aus der Delphi-Hilfe. Schau mal dir mal die Konstruktoren der Verschiedenen Feldobjekte z.B. TIntegerField an.