从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的方法。
Elastic 实战工作坊
Elastic 实战工作坊
Elastic 实战工作坊
云+社区沙龙online
云+社区技术沙龙[第27期]
云+社区沙龙online [技术应变力]
云+社区开发者大会 长沙站
北极星训练营
数字化产业研学会第一期
云+社区沙龙online [技术应变力]
云+社区技术沙龙[第22期]
领取专属 10元无门槛券
手把手带您无忧上云