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

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

解决方案 »

  1.   

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

  2.   

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

  3.   

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

  4.   

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

  5.   

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

  6.   

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