棘手，头痛死了？？

Question

莫名其妙的问题啊！！！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'，怎么回事啊

Answer 1

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

Answer 2

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

Answer 3

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

Answer 4

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

Answer 5

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

Answer 6

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