真想要分,但来晚了。可是问题总是要解决的。
在调试程序时出错误,‘操作无法使用’。
这是在
function ActiveWord:Variant;
begin
try
Result:=Getactiveoleobject('word.application');
except
try
Result:=createoleobject('word.application');
except
messagedlg('word may not be installed', mterror, [mbok], 0);
abort;
end;
end;
end;
时出现,其实这个问题不是什么问题,当没有找到Word时,程序转而去执行except
这时程序就以为是出错了,所以给出了告警。这时可以继续执行程序。
而在退出调试状态后,执行就正常了。这个问题还可以用改变DEBUG设置,让Delphi不出现except告警来解决。