Thema: Delphi Freereport+empty String

Einzelnen Beitrag anzeigen

shmia

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

Re: Freereport+empty String

  Alt 15. Jan 2008, 14:39
Du könntest einen Handler für das Event OnGetText schreiben:
Delphi-Quellcode:
procedure TForm1.FeldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean);
begin
 Text := Sender.AsString;
 if Sender.IsNull then
    Text := '????';
end;
Dieser Eventhandler muss nach dem Öffnen des Datasets installiert werden:
Delphi-Quellcode:
procedure TForm1.Query1AfterOpen(DataSet: TDataSet);
begin
   Dataset.FieldByName('Telefonnr').OnGetText := FeldOnGetText;
end;
Andreas
  Mit Zitat antworten Zitat