Fastreport - Variable übergeben

[user0815]

Hallo,

ich möchte von Delphi aus eine Variable zum Fastreport (Version: 4.12.6) übergeben & dort z.B. anzeigen.
Auf der Fastreport Seite in den FAQ habe ich folgendes gefunden:

Question: How can you transfer an array of variables from Delphi into FR ?

Delphi-Quellcode:

var 
  a : variant;
begin
  a := VarArrayOf([1,2,3]);
  frxReport1.Script.Variables['a'] := a;
end;

Ich habe auch solchen Code gefunden:

Delphi-Quellcode:

  frxReport1.Variables['My Variable 1'] := 10;
  frxReport1.Script.AddVariable('WPath', 'String', ExtractFilePath(ParamStr(0)));

Compilieren kann ich obigen Code. Wie greife ich jetzt innerhalb von FR darauf zu ?

<strike>Die Seite http://www.fast-report.com/de/documentation/ zeigt gerade "nichts" an.</strike>
Die en zeigt was an: http://www.fast-report.com/en/documentation/ schaue jetzt dort erstmal...
Aus der Programmhilfe im Fastreport OrdnerDoc werde ich nicht schlau. Finde die Hilfe schlecht gemacht.

Grüße
user0815

[Lemmy]

Hi,

Fastreport Designer öffnen, Report laden. Unter Report - Variablen die Variable anlegen (zuerst eine neue Kategorie, dann die Variable) und den Namen vergeben. Diese kannst Du dann innerhalb FR wie ein DB-Feld verwenden bzw. über Get/Set in einem Script Werte auslesen / zugreifen.

Wert von Delphi aus setzen hast Du ja schon....

GRüße

[user0815]

Klappt. Geht das nur mit Strings ?

Wie kann ich get / set nutzen?

Wo finde ich dazu die entsprechende Dokumentation?
Habe eben mal das "FR4.6.ProgrammerManual-en" nach "set" durchsucht & nichts brauchbares gefunden.
Das ganze muss doch irgendwo Dokumentiert sein.

[Lemmy]

hm.. FastReport und Dokumentation ist so ne Sache

FR4.6.UserManual-en.pdf
Seite 31 (37 im PDF) Grundlagen
Seite 90/91 (96/97 im PDF): Anwendung von Variablen im Script

und bzgl. "Geht das nur mit Strings": Da musst Du aufpassen! String genrell mit QuotedStr() einpacken, da FR wirklich her geht und den Namen mehr oder weniger nur mit dem Wert der Variable ersetzt (wenn Du diese wie ein DBFeld verwendest). Da der Typ einer Variable innerhalb Delphi als Variant zugreifbar ist, kannst DU da theoretisch alles übergeben, musst es halt auf der FR Seite entsprechend auswerten...

Grüße

[user0815]

FR4.6.ProgrammerManual-en:

Adds a variable to the specified category
  procedure AddVariable(const ACategory, AName: String; const AValue: Variant);

funktioniert auch (ob das gewollt ist ?):

Delphi-Quellcode:

  
  frxReport1.Script.AddVariable('AAA', '', QuotedStr('ABC'));
  frxReport1.Script.AddVariable('BBB', '', 'DEF');
  frxReport1.Script.AddVariable('BBB', '', 'BLA'); // wird ignoriert

  frxReport1.Script.AddVariable('YYY', 'unnecessary', QuotedStr('456'));
  frxReport1.Script.AddVariable('ZZZ', 'unnecessary', '789');

Jetzt im Report in ein Memo Feld (TfrxMemoView) den jeweiligen Wert von ACategory in eckigen Klammern eintragen z.B.: [AAA]
Ausgabe in diesem Fall:
'ABC'
DEF
'456'
789

[Bummi]

ich habe fast alle meiner Drucks auf eine Generische Unit umgestellt der Datasets, Variablen, Reports, Callbacks etc.
im Execute mitgegeben werden, der Variablenteil sieht so aus ....

Delphi-Quellcode:

Procedure TDM.PrintEttis;

var
  vars: TFrxVariables;
  ...
begin

      vars := TFrxVariables.Create;
      try
        for i := 0 to FReportingList.Count - 1 do
        begin
          With vars.Add do
          begin
            Name := FReportingList.Names[i];
            Value := QuotedStr(FReportingList.Values[i]);
          end;
        end;
      ...
      ... 
      TFPrintF.Execute(... ,vars,  .... ....
end;



TFPrintF.Execute(... ,vars,  .... ....);
begin
  ....


    for i := 0 to Report.Variables.Count - 1 do
    begin
      Report.Variables.Items[i].Value := QuotedStr('');
    end;
    if Assigned(Variables) then
      for i := 0 to Variables.Count - 1 do
      begin
        k := Report.Variables.IndexOf(Variables.Items[i].Name);
        if k > -1 then
          Report.Variables.Items[k].Value := Variables.Items[i].Value
        else
        begin
          with Report.Variables.Add do
          begin
            Name := Variables.Items[i].Name;
            Value := Variables.Items[i].Value;
          end;
        end;
      end;
   ....
end;

[Lemmy]

Zitat von user0815:

FR4.6.ProgrammerManual-en:

Adds a variable to the specified category
  procedure AddVariable(const ACategory, AName: String; const AValue: Variant);

ja - nur ehrlich gesagt der SInn dahinter erschließt sich mir noch nicht, da ich so auf die Variable während des Reportdesigns keinen Zugriff habe. Deshalb leg ich die im Report immer an...