FastReport报表里的Memo控件字体设置大小的问题

[nimeide1234567890]

如何在Delphi代码里把FastReport报表里的所有Memo控件字体大小设置好？

我不想一句句的写，比如：

TfrxMemoView(frxReport1.FindObject('Memo1')).Font.Size:=14;

我想写个循环，把所有Memo控件字体大小设置好，在Delphi代码里怎么写？

[tanqth]

可以试试这样：

var
i: Integer;
l: TList;
begin
l := frxReport1.AllObjects;
for i := 0 to l.Count - 1 do
if CompareText('TfrxMemoView', TfrxComponent(l[i]).ClassName) = 0 then
begin
TfrxMemoView(l[i]).Font.Size:=14;
end;
end;