(screen.Forms[i] as TZTGQMJFrm).ZTGQArea := temp;这句报错  在这之前加了个 showmessage(screen.Forms[i].ClassName);   classname 正好就是TZTGQMJFrm
TZTGQMJFrm是个窗口类   ZTGQArea是属性 public  字符串类型
temp 是个字符串变量

解决方案 »

  1.   

    按照你說的話,沒錯
    假如TZTGQMJFrm不是動態窗體,可能是你沒uses窗體TZTGQMJFrm的Unit
      

  2.   

    uses了的   如果没use编译都通不过   -_-#
      

  3.   

    Pchar(temp)
    你这样写写试一下
      

  4.   

    pchar(temp)  如果temp为空 也报地址错
      

  5.   

    pchar还是有问题  传入相同的值 有时可以有时还是报错
      

  6.   

    Invalid class typecast  
      

  7.   

    if screen.Forms[i]) is TZTGQMJFrm then
      (screen.Forms[i] as TZTGQMJFrm).ZTGQArea := temp;
    试试
      

  8.   

    ZTGQArea 确定这个属性可以write?
      

  9.   

    if screen.Forms[i]) is TZTGQMJFrm then
      TZTGQMJFrm(screen.Forms[i]).ZTGQArea := temp;