delphi - 如何从 TStringGrid 的内容创建 QuickReport

Question

我在 Windows 7 上使用 Delphi 7 和 QuickReports。通常 QuickReports 需要由查询生成的数据集，但我想根据 StringGrid 的内容制作报告，就好像 StringGrid 是某个结果的表示形式一样。查询。

如何？

Answer 1

使用 QuickReport.OnNeedData 事件处理程序。它传递一个名为 MoreData( bool 值)的 var 参数；将其设置为 True 意味着它会再次被调用。将 QuickReport.DataSource 属性留空，并使用普通 TQRText 控件而不是 TQRDBText。

// CurrLine is an Integer. In your case, it can represent a row in the StringGrid.
procedure TPrintLogForm.QuickRep1NeedData(Sender: TObject;
                      var MoreData: Boolean);
begin
  MoreData := (CurrLine < StringGrid1.RowCount);
  if MoreData then
  begin
    qrTextLine.Caption := StringGrid1.Cells[0, CurrLine];
    qrTextData.Caption := StringGrid1.Cells[1, CurrLine];
    Inc(CurrLine);
  end;
end;