FreeReport

[PASST]

Hallo allerseits,

ich habe zwei Fragen zu FreeReport, die kostenlose Variante und ältere Version von FastReport.

Wie kann ich eine Variable an den Report übergeben, wie z.B. ein Anfangs- und Enddatum, auf das sich die ausgewerteten Daten beziehen?

Wie kann ich Werte, die in der Auswertung gleich '0' sind als Leerzeichen angezeigen?

Gruß
Peter

[shmia]

Zitat:

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:

Delphi-Quellcode:

dataset.FieldByName('IrgendneNummer').OnGetText := self.NumfieldOnGetText;

[uwewo]

Hi Peter,

es geht noch etwas einfacher

Delphi-Quellcode:

frVariables['VonDatum'] := DateToStr(Date);

frVariables.Clear;//löscht alle Variablen wieder

Uwe

[PASST]

@uwewo
Vielen Dank, dass klappt wunderbar.

@shmia
Das klappt eigentlich auch, zumindest solange ich mir die Daten in einem DBGrid anzeigen lasse. FreeReport gibt eine Exception EVariantTypeCastError aus: 'Variante des Typs [String] konnte nicht in Typ [Double] konvertiert werden.'
Das kann ich aber lösen, indem ich alle leeren Werte gleich dem Text '0' setze. Alle mal besser, als wenn die Werte teilweise 0 und teilweise leer sind.

[shmia]

Zitat:

Zitat von PASST

...Exception EVariantTypeCastError aus: 'Variante des Typs [String] konnte nicht in Typ [Double] konvertiert werden.'

Da kann man noch etwas ändern:

Delphi-Quellcode:

procedure TForm1.NumfieldOnGetText(Sender: TField; var Text: String; DisplayText: Boolean); 
begin 
   if StrToIntDef(Sender.AsString, 0) = 0 then 
      Text := ''  // zum Testen:  Text := '---' 
   else 
      Text := Sender.AsString; 
end;

[PASST]

Das führt leider auch nicht zum Erfolg. Ich erhalte die selbe Fehlermeldung.