用If是难免不了的,不过又有什么关系呢?怎么样?下面的代码够简单吧?
procedure ..onclick(sender: TObject);
var nLoop: Integer;
begin
...
for nLoop := 0 to Pagecontrol1.activepage.ControlCount - 1 do
if Pagecontrol1.activepage.Controls[nLoop] is TRichEdit then
(Pagecontrol1.activepage.Controls[nLoop] as TRichEdit).Undo;
...
end;
procedure ..onclick(sender: TObject);
var nLoop: Integer;
begin
...
for nLoop := 0 to Pagecontrol1.activepage.ControlCount - 1 do
if Pagecontrol1.activepage.Controls[nLoop] is TRichEdit then
(Pagecontrol1.activepage.Controls[nLoop] as TRichEdit).Undo;
...
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货