fastreport中能否实现如下功能？

[blueshu]

怎样在fastreport中实现下面的功能
findobject('memo1').memo:='123'
不是在delphi中写

[DG_1]

在FASTREPORT中點擊PAGE1的事件,雙擊ONBEFOREPRINT然後在CODE中

procedure Page1OnBeforePrint(Sender: TfrxComponent);
begin
memo1.text:='123';
end;

[g961681]

FR 对象并不是一个组件. 但使用 TfrReport.FindObject 方法可以通过对象名称找到该对象。
var
t: TfrMemoView;
begin
t := TfrMemoView(frReport1.FindObject(‘Memo1‘));
if t <> nil then
t.Memo.Text := ‘FastReport‘;
end;


//http://dev.csdn.net/article/63/63345.shtm

[g961681]

在http://dev.csdn.net/article/63/63345.shtm找到的
好象能用。

[g961681]

呵呵~~~~~
试了，不行~~~~~~

[chuchu]

如果是在fastreport脚本里面写就不用findobject了，运行反而慢。
直接用memo1.memo.text:='123'。
看它的源码你就会发现，实际上memo1.memo就是一个Memo，自然也有Memo.Lines.Add的功能。

[g961681]

t := Self.FindObject('Memo18');
if t = null then
begin
Memo18.FillColor := clBlue;
Memo18.memo := '没找到';
end
else
begin
Memo18.FillColor := clRed;
Memo18.memo := '找到了';
end;
好象测试通过~~~~~~~~

[blueshu]

多谢各位的回复！
我说的不是在delphi中实现
g961681的明白点我的意思，可是我要设置的是找到的t.memo的文本，不是对给定的memo18.memo赋值的

[blueshu]

[blueshu]