我怎样能将DELPHI的错误忽略掉,象VB的 ON ERROR RESUME NEXT 一样?(100分)

  • 主题发起人 主题发起人 kevenzhang
  • 开始时间 开始时间
K

kevenzhang

Unregistered / Unconfirmed
GUEST, unregistred user!
try
可能引起错误的代码
except
showmessage('一个错误');
end
 
多用
try
...
except
end;
tools->debuggeroptions->Integrated debugging的钩钩去掉。
 
在错误事件里将错误码的值重新负值
比如;winsock控件里
在onclienterror事件里
ErrorCode:=0就行了
 
如在
try
{ }
except
on 某某错误 do
begin
跳出
end;
end;
 
在Addtional的页面中放一个ApplicationEvents,在它的事件中找到OnException写你要处理
的异常就可以了。
  上面提到的try exception 你应当知道吧。OnException的意思就是:

try
application
try
代码
exception
   处理某一部份的异常
end;
exception
onExcption
end;
 也就是所有没有处理的application的异常都到OnException中来处理。
 为了对付客户你就可以在这里写(showmessage('操作完成');)
  不要说是我教的。 :)
tools->debuggeroptions->Integrated debugging的钩钩去掉。
只是屏蔽了在IDE环境下的异常吧。
 
1。建立你的异常保护机制。
2。除掉警告信息:用编译指令:$warnings off; $warnings on
 
1、不出现严重错误
procedure NoError;
var wOldError_Mode:Word;
begin
wOldError_Mode:=SetErrorMode(SEM_FAILCRITICALERRORS);
try
finally
SetErrorMode(wOldError_Mode);
end;

end;

 
2、
设置Application.OnException=你的错误处理程序。
然后在你的错误处理程序里面处理,就不会出现Delphi自己的错误信息了。
3、使用Try.. Except等
 
yzhshi well done
 
后退
顶部