我这样写的,可是错误,怎样解决?
procedure TForm1.RMReport1ManualBuild(Page: TRMPage);
var
i: integer;
t: TObject;
begin
Page.NewPage;
for i:=0 to rmReport1.Pages.Pages[0].Objects.Count - 1 do
begin
t := rmReport1.Pages.Pages[0].Objects[i];
Page.Objects.Add(t);
end;
end;
procedure TForm1.RMReport1ManualBuild(Page: TRMPage);
var
i: integer;
t: TObject;
begin
Page.NewPage;
for i:=0 to rmReport1.Pages.Pages[0].Objects.Count - 1 do
begin
t := rmReport1.Pages.Pages[0].Objects[i];
Page.Objects.Add(t);
end;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货