ReadyGo!技术成就梦想 网络搜索 efish 2008-1-13 11:11:56

为什么这样清空表单上的数据不行？？

楼主（）2002-01-04 17:47:47 在 Delphi / 非技术区 提问

在一个表单上有很多个TEdit和TCombobox，我想把它全部清空，为什么用这样的方法不行。还有没有别的方法？  
        for   i:=0   to   controlcount-1   do  
            begin  
                  if   controls.ClassName="Tedit"   then  
                      TEdit(controls).clear;  
                  if   controls.ClassName="TCombobox"   then  
                      TCombobox(controls).itemindex:=-1;  
              end; 问题点数：0、回复次数：5Top

1 楼fei1995（三板斧）回复于 2002-01-04 17:51:39 得分 0

    for   i:=0   to   componentcount-1   do  
          begin  
                  if   components.ClassNameIs("Tedit")   then  
                      TEdit(components).clear;  
                  if   components.ClassNameIs("TCombobox")   then  
                      TCombobox(components).itemindex:=-1;  
              end;    
   
    Top

2 楼xxmmmx（踢踏）回复于 2002-01-04 17:52:30 得分 0

出现了什么错误？？Top

3 楼qiubolecn（来自差生市）回复于 2002-01-04 17:53:30 得分 0

for   i:=0   to   form1.ComponentCount-1   do  
      begin  
          if   form1.components   is   tedit   then  
              (form1.components   as   tedit).clear;  
          if   form1.components   is   tcombobox   then  
              (form1.components   as   tcombobox).Clear;  
      end;  
   
  (form1.components   as   tedit).clear;和   TEdit(controls).clear;  
  是一样的  
  Top

4 楼jimyang（阳）回复于 2002-01-04 18:15:01 得分 0

 
      for   i:=0   to   controlcount-1   do  
          begin  
                  if   uppercase(controls.ClassName)="TEDIT"   then  
                      TEdit(controls).clear;  
                  if   uppercase(controls.ClassName)="TCOMBOBOX"   then  
                      TCombobox(controls).itemindex:=-1;  
              end;Top

5 楼liwz（liwz）回复于 2002-01-04 18:40:27 得分 0

    for   i:=0   to   controlcount-1   do  
          begin  
                  if   controls.ClassName="TEdit"   then  
                      TEdit(controls).clear;  
                  if   controls.ClassName="TComboBox"   then  
                      TCombobox(controls).itemindex:=-1;  
              end;  
  要写为"TEdit"、"TComboBox"而不为"Tedit"、"TCombobox"。Top