Freereport+empty String

[sebi87]

Hallo Leute,

ich verzeifle mit diesem Report noch.
Wie muss die Funktion heißen wenn ich bei einem Empty-String also ' ' einen anederen Wert (????) angezeigt werden.

Ich hab es mit der Funktion

[if([DBField] = '', '????',[DBField])]

aber es Funktioniert nicht, es wird immer nichts angezeigt, wenn der String empty ist.

Grüßle Sebastian

[shmia]

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;

[sebi87]

Vielen Dank, So Funktioniert es.


:-)) *Freu*