FASTREPORT批量动态创建的MEMO报错,请帮忙看下!
单个动态创建 FASTREPORT里的MEMO可以创建,为什么批量不行啊,找不到原因,知道的请帮忙看下
没分了,全部家当了!求解
- Delphi(Pascal) code
//单个创建,可以使用procedure TForm1.btn2Click(Sender: TObject);var Memo:TfrxMemoView;begin Memo:=TfrxMemoView.Create(frxrprt1.findobject('PageFooter1')); Memo.Name:='Memo1'; Memo.Text:='123'; Memo.Height:=20; Memo.Width:=40; Memo.Top:=10; Memo.Left:=10; Memo.WordWrap:=True; Memo.CreateUniqueName; Memo.Visible:=True;frxrprt1.showReport;end;//批量创建,出错procedure TForm1.btn1Click(Sender: TObject);var Memo:array[0..20] of TfrxMemoView; i,k:Integer;begin k:=0; for i:=1 to 2 do begin Memo[i]:=TfrxMemoView.Create(frxrprt1.findobject('PageFooter1')); Memo[i].Name:='Memo'+inttostr(i); Memo[i].Text:='123'; Memo[i].Height:=20; Memo[i].Width:=40; Memo[i].Top:=10; Memo[i].Left:=10+k; Memo[i].WordWrap:=True; Memo[i].CreateUniqueName; Memo[i].Visible:=True; k:=k+10; end;frxrprt1.showReport;end;[解决办法]
名称不要用Memo1...MemoN
可以是Memo[i].Name:='M'+inttostr(i); 或者其它;
至于为什么,自己看看源码吧