从TStringGrid的内容创建QuickReport,可以通过以下几个步骤实现:
procedure TForm1.Button1Click(Sender: TObject);
var
I, J: Integer;
begin
// 将TStringGrid的内容复制到QuickReport中
for I := 0 to StringGrid1.RowCount - 2 do
begin
for J := 0 to StringGrid1.ColCount - 2 do
begin
QuickRep1.Data.Cells[J, I] := StringGrid1.Cells[J, I];
end;
end;
// 显示QuickReport
QuickRep1.Preview;
end;
以上就是从TStringGrid的内容创建QuickReport的方法。
领取专属 10元无门槛券
手把手带您无忧上云