Hallo zusammen,

zum auslesen einer Variable bei Fast Report geht man folgendermaßen vor:

strVariable := <VARIABLE>;

Wichtig:
Variablen sind vom Grund her Integer Variablen. Wenn ich also einen String als Variable möchte, darf ich nicht vergessen Hochkommas, z.B. ‘variable’, zu setzen.

Im Gegensatz zu FastReport 3 muss man bei FastRport 4 im Code, Queries und anderen Wertzuverweisungen exakt den selben Typ verwenden, sonst kommt es zu Fehlern oder falschen Ausgaben.

Ansonsten verhält sich FR4 wie FR3.

Was jetzt endlich funktioniert, ist Debugging Funktion.

Auch die “Laser-Lines” im visuellen Editor sind hilfreich.

Mit folgender Codezeile lässt sich einer Variablen

ein Wert zuweisen:

Report.Variables.Variables('VARIABLENNAME') := 'WERT';

In dem konkreten Fall ging es darum, dass der Benutzer in der Vorschau entscheiden möchte, ob das Logo mit gedruckt werden soll.

Als erstes erstellt man einen zusätzlichen Dialog für die Abfrage.
Dabei ist zu beachten, dass dieser Dialog “Visible:=False” haben muss.

Dann wechselt man in den Report und hinterlegt den Images ein “OnPreviewClick” Ereignis.

Zuletzt Schreibt man den Code ins Event.

procedure logo1OnPreviewClick(Sender: TfrxView; Button: TMouseButton; Shift: Integer; var Modified: Boolean);
begin
  dlgFrage.ShowModal;
  if dlgFrage.ModalResult=mrYes then begin
    Sender.Free;
    Modified := True;
  end;
end;

Fertig.