Thema: Delphi FreeReport

Einzelnen Beitrag anzeigen

shmia

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

Re: FreeReport

  Alt 11. Mai 2009, 11:54
Zitat von PASST:
Wie kann ich Werte, die in der Auswertung gleich '0' sind als Leerzeichen angezeigen?
Schreibe einen Eventhandler für [TField].OnGetText.
Delphi-Quellcode:
procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
   if Sender.IsNull or (Sender.AsInteger=0) then
      Text := ''  // zum Testen: Text := '---'
   else
      Text := Sender.AsString;
end;
Im Event AfterOpen schreibst du dann:
dataset.FieldByName('IrgendneNummer').OnGetText := self.NumfieldOnGetText;
Andreas
  Mit Zitat antworten Zitat