Thema: Delphi Fastreport - code.....

Einzelnen Beitrag anzeigen

Benutzerbild von sx2008
sx2008

Registriert seit: 16. Feb 2008
Ort: Baden-Württemberg
2.332 Beiträge
 
Delphi 2007 Professional
 
#3

AW: Fastreport - code.....

  Alt 27. Sep 2013, 14:55
Am Einfachsten wird sein wenn du dem betreffenden Feld ein OnGetText-Handler zuordnest.
Dies funktioniert für alle Arten von Reportgeneratoren.

Delphi-Quellcode:
procedure TMain.OnGetTextBoolHandler(Sender: TField; var Text: string;
  DisplayText: Boolean);
begin
  if sender.AsBoolean then
    Text := 'ok'
  else
    Text := '---';
end;

...
// und im AfterOpen - Event des Datasets wird der Eventhandler eingeklinkt
begin
  Dataset.FieldByName('Bezahlt').OnGetText := OnGetTextBoolHandler;
  // man kann den gleichen Handler für mehrere Felder verwenden
  Dataset.FieldByName('Geliefert').OnGetText := OnGetTextBoolHandler;
fork me on Github
  Mit Zitat antworten Zitat