Einzelnen Beitrag anzeigen

bernhard_LA

Registriert seit: 8. Jun 2009
Ort: Bayern
1.138 Beiträge
 
Delphi 11 Alexandria
 
#5

AW: FastReport by Code, Werte manipulieren

  Alt 22. Mär 2023, 10:41
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;

Geändert von bernhard_LA (22. Mär 2023 um 11:03 Uhr)
  Mit Zitat antworten Zitat