如何把form中所有的TMaskEdit和TCombox控件的text清空，请给出源码，谢谢！

问题点数：50、回复次数：4Top

1 楼sundayboys（sunboy）回复于 2001-06-12 16:58:00 得分 0

循环清空。Top

2 楼C_Sharp（www.borlan.net）回复于 2001-06-12 17:04:00 得分 45

    for   I   :=   1   to   Self.ComponentCount   -   1   do  
      begin  
          if   (Self.Components[i]   is   TMaskEdit)   then  
              (Components[i]   as   TMaskEdit).Text   :=   ''  
          else   if   (Components[i]   is   TCombox)   then  
              (Components[i]   as   TCombox).Text   :=   '';  
      end;Top

3 楼javis（蓝枫）回复于 2001-06-12 17:09:00 得分 0

同意楼上Top

4 楼weizhi（行者）回复于 2001-06-12 17:24:00 得分 5

应是     for   I   :=   0   to   Self.ComponentCount   -   1   do  
  其它同上!Top

相关问题

• tcombox
• tmaskedit
• componentcount
• components
• then
• text

• 帖主：jerr
• C_Sharp
• weizhi

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