棘手，头痛死了？？

莫名其妙的问题啊！！！  
   
  function   initinfo(cH:thandle):integer;  
  var   filename   :   string;  
  begin  
  **     application.Handle:=ch;  
      result:=0;  
      filename:=extractfilepath(application.exename)+'\data';  
      if   fileexists(Format('%s.xml',[filename]))   then  
      begin  
          tmpdata.LoadFromFile(filename);  
          result:=1;  
      end  
  end;  
  以前用着好好里，可现在在编译的时候在**位置提示  
  Incompatible   types:   'QApplicationH'   and   'Cardinal'，怎么回事啊  
  问题点数：100、回复次数：9Top

1 楼yoic（我是一棵菠菜，菜，菜，菜，菜，菜，菜）回复于 2003-06-04 10:03:46 得分 20

application.Handle   :=   integer(ch);呢？？Top

2 楼kingbord（墨言）回复于 2003-06-04 10:09:50 得分 0

不行啊  
  报错Incompatible   types:   'QApplicationH'   and   'integer'Top

3 楼byrybye（阿水）回复于 2003-06-04 10:11:37 得分 20

你的错误好象不是这段代码的吧。  
  我看了一下application.Handle:=ch;  
   
  没有错呀，我试过了，  
  其他语句也不可能报这个错吧，  
   
  可能是你别的地方错了Top

4 楼kingbord（墨言）回复于 2003-06-04 10:14:48 得分 0

现在提示我perform这个函数未声明，是不是我删除了哪个要引用的unit文件Top

5 楼kingbord（墨言）回复于 2003-06-04 10:27:29 得分 0

没人知道吗Top

6 楼byrybye（阿水）回复于 2003-06-04 13:30:14 得分 0

你的程序里用了perform了吗？？？？？？Top

7 楼CloneCenter（复制中心）回复于 2003-06-04 15:12:05 得分 20

怎么给人的感觉是代码和出错信息不配套啊？  
  看看   Application.Handler   的帮助，或许可以找到答案。Top

8 楼westfly（左眼）回复于 2003-06-04 17:47:39 得分 20

你是否重定义了THandle类型？Top

9 楼myling（不理你）回复于 2003-06-04 18:06:01 得分 20

看不出哪里的毛病Top

相关问题

• application
• ch
• filename
• handle
• integer

• 帖主：kingbord
• yoic
• byrybye
• CloneCenter
• westfly
• myling

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