请问把已建好的edit1至12个如何用for i:=1 to 12语句代替1至12,老是没通过(50)

  • 主题发起人 主题发起人 极品铁观音
  • 开始时间 开始时间

极品铁观音

Unregistered / Unconfirmed
GUEST, unregistred user!
procedure TF_SHJIN.edithui(str: string);beginif f_shjin.Caption='AAA' thenbeginedit1.Text:='******';edit2.Text:='******';edit3.Text:='******';edit4.Text:='******';edit5.Text:='******';edit6.Text:='******';edit7.Text:='******';edit8.Text:='******';edit9.Text:='******';edit10.Text:='******';edit11.Text:='******';edit12.Text:='******';end;end;//调用edithui('AAA');
 
for i:=1 to 12 dobeginTEdit(FindComponent('edit' + inttostr(i))).Text:='******';end;
 
谢了,以前用过FindComponent,忘了。
 
后退
顶部