Berechnetes Feld ändern Integer<->DateTime

[geesmith]

Danke für deine Antwort stifflersmom

Wie soll das deiner Meinung nach ausschauen?

Ich habe in der TTable ein Data-Feld "HISTDATE" welches den Tabellenwert inne hat.

Soll ich nun ein GetText und SetText auf diesem Feld machen?

So sieht die Get-Funktion aus:

Code:

procedure TFrame_Base_Brick.UniTable_BrickHistHISTDATEGetText(Sender: TField;
  var Text: string; DisplayText: Boolean);
begin
  inherited;
  Text := JulianToGregorian(FieldbyName('HISTDATE').asInteger); // Funktion gibt TDateTime zurück
end;

Ich habe einen var Text:String. Wie soll ich da jetzt einen DateTime-Wert reinschreiben?

...und dann gleiches Spiel mit SetText..

Code:

procedure TFrame_Base_Brick.UniTable_BrickHistHISTDATESetText(Sender: TField;
  const Text: string);
begin
  inherited;

end;