LazReport - Lazarus variable Übergeben

[Int3g3r]

Guten Abend

Wie kann ich eine Variable in Lazarus an den Report übergeben?
Habe folgendes versucht: https://wiki.freepascal.org/LazReport_Tutorial
(Siehe "General purpose variables")

Ich erhalte keinen Fehler.
Die Variable wird aber im Report nicht angezeigt (Bleibt Leer).

Ich möchte nur die TotalRecords im Report angezeigt bekommen.
Als alternative hat jemand ein Beispiel wie ich alle Records in LazReport zählen und anzeigen kann?

Code: Alles auswählen

procedure TfrmMain.btnReportClick(Sender: TObject);
var reportAlbum:string;
begin
  reportAlbum:= ExtractFilePath(ParamStr(0))+'Reports\Albums.lrf';
  try
     frReport1.LoadFromFile(reportAlbum);
     frReport1.Values.FindVariable('RecordCount').Field := QuotedStr('TEST');
     frReport1.ShowReport;
  except
     ShowMessage('Fehler beim öffnen vom Report.'+#13#10+reportAlbum);
  end;
end;    

2022-12-23 20_18_25-Window.png (2.89 KiB) 857 mal betrachtet

2022-12-23 20_17_27-Window.png (15.96 KiB) 857 mal betrachtet

Gruss Int3g3r

[oleg]

nach dem Öffnen deiner Query hat sie die Eigenschaft der Gesamtdatensätze : DataModul.ZQuery1.RecordCount

Code: Alles auswählen

  frVariables.Clear; // alles alte Zeug löschen
  frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;

Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.

[Int3g3r]

nach dem Öffnen deiner Query hat sie die Eigenschaft der Gesamtdatensätze : DataModul.ZQuery1.RecordCount

Code: Alles auswählen

  frVariables.Clear; // alles alte Zeug löschen
  frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;

Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.

Hallo Oleg

Leider verstehe ich nicht wo ich den Code eintragen muss.
Ist dieser im Report einzutragen? Wenn ja wo?
Ich habe keine "frVariable" Komponente auf dem From.
Ist das erste Mal das ich LazReport verwende.

[gladio]

Schau mal, ob dir das weiter hilft: viewtopic.php?p=94403#p94403
Eigene Variablen übergibst du besser in OnGetValue .

[oleg]

nach dem Öffnen deiner Query hat sie die Eigenschaft der Gesamtdatensätze : DataModul.ZQuery1.RecordCount

Code: Alles auswählen

  frVariables.Clear; // alles alte Zeug löschen
  frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;

Die Variable Record_Count muss im Formular erzeugt werden und kann dann normal im Dokument platziert werden.
Im Zweifelsfall kannst du den Wert auch mit IntToStr(DataModul.ZQuery1.RecordCount) übergeben.

Hallo Oleg

Leider verstehe ich nicht wo ich den Code eintragen muss.
Ist dieser im Report einzutragen? Wenn ja wo?
Ich habe keine "frVariable" Komponente auf dem From.
Ist das erste Mal das ich LazReport verwende.

Hallo du hast ja bereits folgenden Code:

Code: Alles auswählen

procedure TfrmMain.btnReportClick(Sender: TObject);
var reportAlbum:string;
begin
  reportAlbum:= ExtractFilePath(ParamStr(0))+'Reports\Albums.lrf';
  try
     frReport1.LoadFromFile(reportAlbum);
       // neue  Zeilen:
       frVariables.Clear; // alles alte Zeug löschen
       frVariables['Record_count']:= DataModul.ZQuery1.RecordCount;
       // alte zeile -> raus
       // frReport1.Values.FindVariable('RecordCount').Field := QuotedStr('TEST');
     frReport1.ShowReport;
  except
     ShowMessage('Fehler beim öffnen vom Report.'+#13#10+reportAlbum);
  end;
end;