为何会出现Invalid class TypeCast这样的错误提示？

为何会出现Invalid   class   TypeCast这样的错误提示？  
   
  我的程序中：  
  with   form1.Components[index]   as   TEdit  
            Text:='';  
  但是总出现Invalid   class   TypeCast这样的错误提示？不知为何？  
  因为我在form的OnCreate事件中也这样用，却没有问题，而在OnCreate事件之后  
  的处理却不知为何总出错，为何？ 问题点数：20、回复次数：8Top

1 楼chechy（www.qdocuments.net）回复于 2002-04-13 08:59:53 得分 5

try   this:  
  if   form1.Components[index]   is   TEdit   then  
            (TEdit(form1.Components[index])).Text:='';  
  Top

2 楼xzgyb（老达摩）回复于 2002-04-13 09:02:54 得分 5

with     Form1   do  
      for   i   :=   0   to     ComponentCount   -   1   do  
          if   Components[i]   is   TEdit   then  
                TEdit(Components[i]).Text   :=   '';Top

3 楼HuangBin（想说放弃不容易！！）回复于 2002-04-13 09:05:07 得分 0

估计你要的是   ：   xzgyb(老达摩)   这种！Top

4 楼wenzm（魔术师）回复于 2002-04-13 09:14:37 得分 5

同意   xzgyb(老达摩)    
   
   
  form1.Components[index]   不一定能成，  
  还得看form1.Components[index]和Tedit的继承关系（当form1.Components[index]的确不是TEdit时）Top

5 楼zswang（伴水清清)(专家门诊清洁工）回复于 2002-04-13 09:17:06 得分 5

with   form1.Components[index]   as   TEdit   do   //我调试可以呀！不写do也不是这个提示  
          Text   :=   '';  
   
  //for   Delphi6  
   
  也许问题不是出在这里  
  把上下代码给大家看看Top

6 楼everydayniceday（大卫）回复于 2002-04-13 13:48:03 得分 0

代码太多，不过这段代码我以前使用是没有问题的。  
  而且，之前同样的代码也没有问题。  
  后来添了一点东西，其实没动这些代码，就处错了。Top

7 楼dancemaple（枫之舞）回复于 2002-04-13 14:00:28 得分 0

你可能是打开了Stop   on   Delphi   Exceptions开关吧。as操作加了异常保护  
   
  建议用老达摩的方法Top

8 楼bigysw（大花脸）回复于 2002-04-13 14:37:07 得分 0

就是就是，你的Components中有的控件不是TEdit类型的，转化过程中回出错！判断一下是必要的。就象老达摩说的那样做！Top

相关问题

• 代码
• tedit
• 错误提示
• components
• form1
• typecast这样
• 出现
• 达摩
• invalid class
• 没有问题

• 帖主：everydayniceday
• chechy
• xzgyb
• wenzm
• zswang

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