回 帖 发 新 帖 刷新版面

主题:写的好辛苦啊,谁能给我个简单的写法

rzedit1.Text:='';
rzedit2.Text:='';
rzedit3.Text:='';
rzedit4.Text:='';
rzedit5.Text:='';
rzedit6.Text:='';
rzedit7.Text:='';
rzedit9.Text:='';
rzedit10.Text:='';
rzedit11.Text:='';
rzedit12.Text:='';
rzedit13.Text:='';
rzedit14.Text:='';
rzedit15.Text:='';
rzedit16.Text:='';
rzedit17.Text:='';
rzedit18.Text:='';
rzedit19.Text:='';
rzedit20.Text:='';
rzedit21.Text:='';
rzedit22.Text:='';
rzedit23.Text:='';
rzedit24.Text:='';
rzedit25.Text:='';
rzedit26.Text:='';
rzedit27.Text:='';
rzedit28.Text:='';
rzedit29.Text:='';
rzedit30.Text:='';
rzedit31.Text:='';
rzedit32.Text:='';
rzedit33.Text:='';
rzedit34.Text:='';
rzedit35.Text:='';
rzedit36.Text:='';
rzmemo1.Text:='';
rzstatuspane1.Caption:='';
rzstatuspane2.Caption:='';
rzstatuspane3.Caption:='';

回复列表 (共2个回复)

沙发

前面36个个可以这样写;
var
  tempname:string;
begin
for i:=1 to 36 do
  begin 
    tempname:=format('rzedit%d',[i]);
    tedit(findcomponent(tempname)).text:='';
  end;

板凳

学到一招

我来回复

您尚未登录,请登录后再回复。点此登录或注册