Einzelnen Beitrag anzeigen

shmia

Registriert seit: 2. Mär 2004
5.508 Beiträge
 
Delphi 5 Professional
 
#2

AW: DBGrid darstellen von neg Zahlen als pos

  Alt 16. Feb 2012, 16:54
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;
Andreas
  Mit Zitat antworten Zitat