例如: E : Exception E.Message 是Asynchronous socket error 10061 我想從E取得10061 程式是一條不歸路

try //.............; except on E:Exception do  showmessage(e.Message); end;    这样就可以了    风花雪月 e梦情缘

------
风花雪月 e梦情缘

ShowMessage(Copy(E.Message ,PosEnd(' ',E.Message ),10)); PosEnd 可參考之前小弟發表的 POS 增強功能 : 最後位置，第 N 次位置，出現次數 若你使用 Delphi 7 Uses StrUtils 即可 若你使用 Delphi 6 或以下可參考該文未的 PosEx 函數 不過，若 ErrorCode 不放在最尾這功能就做不到了。