Fastreport Variable auslesen

[MaBuSE]

Zitat von Union:

Mit QuotedStr und Literal funktioniert beides:

Ich glaube, er wollte etwas anderes wissen.
Er will warscheinlich wissen, wie es im Report geht.

Von außen können Variablen mit Werten belegt werden. Das ist kein Problem.

Von innen sieht es etwas anders aus.

Delphi-Quellcode:

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
  Report.Variables.Variables('test') := '''von innen''';
  Report.Variables['XXX'] := '''YYY''';
end;

begin
end.

Das funktioniert beides, Variable Test ist im Report definiert und wird gesetzt. Variable XXX ist im Report nicht definiert, kann aber trotzdem gesetzt und (z.B. im Memo) ausgelesen werden.

Im Report kann die Variable ausgegeben werden. (z.B. mit folgendem Text in einem TfrxMemoView: [XXX] bzw. [test])

ABER, diese Werte sind NICHT von außen (Delphi) verfügbar. Es erscheint nur die definierte Variable test mit dem vorher übergebenen Wert.

Wir verwenden "FastReport 4 Enterprise Edition".
Ich hoffe die Info hilft Dir.

[ibp]

Zitat von MaBuSE:

ABER, diese Werte sind NICHT von außen (Delphi) verfügbar. Es erscheint nur die definierte Variable test mit dem vorher übergebenen Wert.

Mist und genau das brauche ich....

Jemand eine Idee wie ich Infos von innen nach außen transportieren kann?


Das Problem scheint die Zuweisung zu sein. Wenn man "innen" die Variable definiert und dann in dem "Definitions-Fenster" den Ausdruck der Variable festlegt, dann kann man sie auch von außen auslesen.

Was mir dabei auffällt ist, dass die vordefinierte Variabel beim ausgeben innen mit showmessage(<MyVar>) dann der Inhalt inklusiv Hochkommas ausgegeben wird, wenn ich den Wert innen im Skript zuweise wird er ohne Hochkommas ausgegeben!

Hmm

[MaBuSE]

Zitat von MaBuSE:

Delphi-Quellcode:

...
  Report.Variables.Variables('test') := '''von innen''';
  Report.Variables['XXX'] := '''YYY''';
...

Anmerkung:

Es funktioniert auch der folgende Zugriff auf Variablen in FR:

Delphi-Quellcode:

...
  Report.Variables['XXX'] := '''Das ist ein Test''';
  ShowMessage( <XXX> ); // gibt Inhalt von XXX aus;
  ShowMessage( Get(XXX) ); // gibt Inhalt von XXX aus;
  Set('XXX', '''Test'''); // XXX wird 'Test' zugewiesen.
...

Es gilt aber das gleiche wie bei den oben genannten Varianten.

[ibp]

ok hmmm

Gibt es noch eine andere Möglichkeit Informationen von innen nach außen zu transportieren?

[Sir Rufo]

Also so geht es
  Report.Variables['test'] := '''''''Hallo'''''''; Folgender Wert müsste im Variablen-Editor eingegeben werden

Code:

'''Hallo'''

Und nun muss man alle Quotes verdoppeln und dann nochmal in Quotes einschließen

[ibp]

Zitat von Sir Rufo:

Also so geht es
  Report.Variables['test'] := '''''''Hallo'''''''; Folgender Wert müsste im Variablen-Editor eingegeben werden

Code:

'''Hallo'''

Und nun muss man alle Quotes verdoppeln und dann nochmal in Quotes einschließen

stimmt ABER leider ist es so wie es MaBuSe schon geschrieben hatte, dass man von außen den Wert innen nicht abrufen kann.

Daher suche ich eine andere Lösung!

[MaBuSE]

Zitat von ibp:

ok hmmm
Gibt es noch eine andere Möglichkeit Informationen von innen nach außen zu transportieren?

Doch es geht.
Ich habe eine Möglichkeit gefunden.

gib mir ein paar Minuten, dann bastele ich Dir ein Beispiel...

[MaBuSE]

Zitat von MaBuSE:

gib mir ein paar Minuten, dann bastele ich Dir ein Beispiel...

Folgendes Minimalbeispiel:

1. Erzeuge eine neue Anwendung.
2. Lege ein TfrxReport darauf.
3. [RechtsKlick] -> "Edit Report..."
4. Es öffnet sich der Report Designer
5. Auf den Tab mit "Code" klicken
6. FR wechselt zum Code Editor
7. Folgenden Code eingeben:
   
   Delphi-Quellcode:

   var
    s: string;
   
   begin
     s := 'Test';                                
   end.

8. Designer schließen
9. Einen TButton auf das Delphi Form legen
10. und folgenden Code auf das OnClick Ereignis legen:
    
    Delphi-Quellcode:

    procedure TForm1.Button1Click(Sender: TObject);
    begin
      frxReport1.ShowReport;
      Caption := frxReport1.Script.Variables['s'];
    end;

11. Programm Compilieren und Starten
12. Button drücken
13. -> Report Vorschau öffnet sich -> schließen
14. -> Caption bekommt den Wert Test
15. 

Das geht in beide Richtungen !!!
ABER: Beim Zuweisen mit frxReport1.Script.Variables['s'] := 'Hurra'; wird die Variable s definiert. Das bedeutet sie darf nicht mit var s: string definiert sein.

Aber das ist durchaus verschmerzbar, oder?

Ich hoffe das löst Dein Problem.

[ibp]

@MaBuSe

Danke in die nähe von F, klappt sehr gut!