Char-Feld aus Datenbank vor Anzeige formatieren

[Garby]

Hallo,

du kannst das Ereignis doch im AfterOpen der Query setzen.

Delphi-Quellcode:

  TForm1 = class(TForm)
    Query1: TQuery;
    procedure Query1AfterOpen(DataSet: TDataSet);
  private
    procedure Query1DATUMGetText(Sender: TField; var Text: String;
      DisplayText: Boolean);
....
procedure TForm1.Query1DATUMGetText(Sender: TField; var Text: String;
  DisplayText: Boolean);
begin
  Text := FormatText(Text);
end;

procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
  DataSet.FieldByName('DATUM').OnGetText := Query1DATUMGetText;
end;