博客摘录「 fastreport动态打印图片数组」2024年1月5日

procedure TForm1.ppp(bitps: array of TBitmap);var i: Integer; pp: TfrxPictureView; page: TfrxReportPage;begin frxReport1.Clear;//清空报表 for I := Low(bitps) to High(bitps) do begin if Assigned(bitps[i]) then begin page := TfrxReportPage.Create(frxReport1);//一张图片一页 page.SetDefaults; pp := TfrxPictureView.Create(page); pp.Align := baClient; pp.Picture.Bitmap := bitps[i]; end; end; frxReport1.ShowReport();