Berechnentes Feld zur Laufzeit hinzufügen

[Angel4585]

Hallo zusammen,

wie schon in der Überschrift steht will ich zur Laufzeit ein berechnetes Feld an eine Table anhängen.

mit:

Delphi-Quellcode:

with Table.FieldDefs do
 begin
 Clear;
 Add('Name1',ftString,40);
 Add('BerechnetesFeld',ftInteger);
 CreateTable;
 end;

Werden zwar Felder hinzugefügt, allerdings hab ich keine Ahnung wie ich aus den Feld 'BerechnetesFeld' auch tatsächlich ein solches mache. wäre ganz praktisch wenn Add das Feld als solches zurückgeben würde und ich dann quasi per

Delphi-Quellcode:

with Add('BerechnetesFeld',ftInteger) do
 begin
 FieldKind:=fkCalculated;
 end;

das einstellen könnte, leider ist Add ne Prozedur und ich hab keine Ahnung wie ich das jetzt anstellen soll.

Hintergrund:
ich möchte den Wert der da drin steht im OnCalcFields der Table ausrechnen, dazu muss es ein Berechnetes Feld sein, da dieses Ereignis sonst nie ausgeführt wird.

Hoffe es weis jemand Rat.

MfG :angel:

[dataspider]

Hi,

Beispiel für berechnetes Felt Typ String 30:

Delphi-Quellcode:

  ..
  private
    FeldBerechnet : TStringField;
  ..
  FeldBerechnet := TStringField.Create(Self);
  with FeldBerechnet do
  begin
    FieldKind := fkCalculated;
    Calculated := True;
    FieldName := 'BERECHNET';
    Size := 30;
    DataSet := table1;
  end;

Cu, Frank

[Angel4585]

THX Spider! Funzt :coder2: