die Zeile
Imagefilename := frxDBDataset1.DataSet.FieldByName('newBMP').AsString;
wird aber nur einmal ausgeführt, ich will aber für jedes record in meiner Datenbank einen Aufruf ...
und auch dieser Ansatz geht nicht :
Delphi-Quellcode:
.....
///
/// 30 eigene Datensätze hinzufügen am Ende vom Bericht, der Code hat keine Funktion :-(
///
for I := 0 to 30 do
begin
Band := TfrxMasterData.Create(Page);
Band.CreateUniqueName;
Band.Top := 100;
Band.Height := 300;
Memo_L := TfrxMemoView.Create(Band);
Memo_L.CreateUniqueName;
Memo_L.text := 'Hello FastReport Loop ' + IntTostr(i);
Memo_L.Height := 20;
Memo_L.SetBounds(0, 0, 100, 20);
end;
{ show the report }
Report.ShowReport;
Report.FileName := FileName;
Report.PrepareReport(true);
// Report.Export(TfrxPDFExport, FileName);
finally
Report.Free;
end;