是否可用循环的方法设置多个组件的属性？

例如有   Label1   Label2   Label3......  
  是否可用循环的方法设置各Label的Caption属性？ 问题点数：30、回复次数：3Top

1 楼cuteant（我这张旧床票还能否登上你的破床|涛声是否依旧）回复于 2006-03-13 10:21:45 得分 30

虽然这个应用很方便，但是问的次数也太多了点  
   
  procedure   TForm1.Button1Click(Sender:   TObject);  
  var  
      i:   integer;  
  begin  
      for   i:=1   to   4   do  
          if   FindComponent('Label'+IntToStr(i))   <>   nil   then  
              TLabel(FindComponent('Label'+IntToStr(i))).Clear;  
  end;Top

2 楼xuxiaozhao_3411（小小）回复于 2006-03-13 10:23:03 得分 0

看了一早上才发现个会的，又被一楼占先了，呵呵。Top

3 楼shongyu（小尘）回复于 2006-03-13 10:33:43 得分 0

谢谢！谢谢！  
  这个clear不行的吧，但已经明白了。Top

相关问题

• 属性
• 循环
• findcomponent
• 是否可用循环
• 方法设置
• label
• 谢谢
• inttostr
• clear

• 帖主：shongyu
• cuteant

• Delphi类图书
• Delphi类源码下载
• Delphi控件下载