try except end的問題。(20分)

  • 主题发起人 主题发起人 fxjpost
  • 开始时间 开始时间
F

fxjpost

Unregistered / Unconfirmed
GUEST, unregistred user!
我用
try
....
except
begin
end
end
當出錯後,系統的錯誤就不會出現了,如何讓它出來呢。
好像定義一個錯誤變量,再用這個變量把它show出來就可以了。
不知是不是可以這樣,如果可以,變量如何定義。
 
try
....
except
On e: exception: ...
begin
end
end
 
try

except on e:exception do
begin
Result:='出错:'+e.Message;
end;
end;
 
try
...
except on e:exception do
begin
系统错误:e.message
你自己可以继续抛出错误信息: raise exception.create(你的错误信息)
end;
end;
 
try
....
except
begin
raise;
end
end
 
这样处理吧:
try
...
except
on E: Exception do begin
MessageDlg(E.Message, mtError, [mbOK],0);
{在此处理你的异常错误}
end
end;
 
后退
顶部