小弟有兩個unit 一個是有form的unit 名稱為a 另一個是處理各種exception的無form unit 名稱為b 在a中 寫一段程式如下 uses b; ... ... try ... except on e:exception do begin **(**,**,**) end; **(**,**,**) 表示傳值給b的一個class 那麼需要傳什麼值?，我b程式中才能判斷它是何種(EDatabaseError,EConvertError,EOleError)錯誤? 而b中如何依據上述傳的值，做判斷?? 是傳e.message嗎? 如何做判斷呢?

傳一個Exception 宣告PostErrorStatus(Sender:Exception)    

procedure TMyClass.PostErrorStatus(Sender:Exception);
begin
  if Sender is EDatabaseError then xxxx;
  if Sender is EConvertError then xxxx;
end;

if Sender is EDatabaseError then xxxx; if Sender is EConvertError then xxxx; 可以改用case 嗎?

傳一個Exception?? 是傳什麼呢? 可不可寫清楚些?

不可以用case case是判斷序數用的例如 x:Integer; case x of 0: 1: end; 而這裡的狀況是物件, 物件只能用if來判斷.    延續上面的例子 您在程式裡可以這樣使用

try
  Table1.Open;
except
  on E:Exception do
    MyClass.PostErrorStatus(E);
end;