莫名其妙的问题啊!!!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',怎么回事啊
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',怎么回事啊
报错Incompatible types: 'QApplicationH' and 'integer'
我看了一下application.Handle:=ch;没有错呀,我试过了,
其他语句也不可能报这个错吧,可能是你别的地方错了
看看 Application.Handler 的帮助,或许可以找到答案。