Du müsstest einen Eventhandler für
OnGetText des
TField schreiben.
Kleines Beispiel zur Anregung:
Delphi-Quellcode:
procedure TDatenModule1.BetragFieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
if DisplayText then
if Sender.AsFloat < 0.0 then
Delete(Text, 1, 1); // Minuszeichen löschen
end;
....
// Eventhandler einklinken
query1.FieldByName('Warenwert').OnGetText := self.BetragFieldOnGetText;