undeclared identifier:'memo'出错如何解决?
procedure TForm1.Button1Click(Sender: TObject);
Var
Str,Tit:String;
I:Integer;
begin
Tit:='动态改变打印内容的例子';
Str:='作者:'+#13+Edit1.Text+#13#13#13#13#13+'作者相关:'+#13;
For I:=0 To Memo1.Lines.Count -1 Do
Begin
Str:=Str+Memo1.Lines[I]+#13;
End;;
FrxReport1.FindObject('Memo2').memo.text:=Tit;
FrxReport1.FindObject('Memo1').memo.text:=Str;
FrxReport1.ShowReport;
end;
end.
=================
运行到FrxReport1.FindObject('Memo2').memo.text:=Tit;提示
undeclared identifier:'memo'
我用的是4.9.31版的FASTREPORT。
[解决办法]
TfrxMemoView(FrxReport1.FindObject('Memo2')).Memo.Text:=Tit;