在DELPHI中大家是怎么样运用异常处理的？？？？

Question

在DELPHI中大家是怎么样运用异常处理的？？？？

Answer 1

最简单就是应用
TRY
EXCEPT
END；TRY
FINALLY
END；
结构。或者从Exception派生建立自己的异常类

Answer 2

type 
  Myexp = class(Exception)
....
....
try
 ....
except
  raise Myexp.create('your message');
end;

Answer 3

try
  Num := StrtoInt(Edit1.Text);
Except
  //请在Edit1输入数字
end;

Answer 4

就是，在什么样的情况下利用，要不要在每个事件开头都写上try在结尾写上，except!!!

Answer 5

当然是在可能会产生异常的地方加上！如I/O操作，打开，保存文件！还有就是利用异常机制实现某种功能，如hety(笨菜阿诺德)的例子，实现了对用户是否输入数字的判断！

Answer 6

我常这么用
try 
  begin
  xxxxxx
  xxxxxx
  zxxxxx
  end
except
showmessage("xxxxx");
end;
不过VCL里常看到人家BORLAND是
TRY
  XXXX
   TRY
  这样的。

Answer 7

别的数上都写了，楼上也说完了。
我说说一个细节：
procedure test1;
begin
try
  strtoint('sss');
finally
  showmessage('1');//永远执行，无论有没有异常。
end;//遇到异常就exit;并且保留异常，抛给调用test1的函数。
showmessage('2');//遇到异常，就不会执行到这里。
end;
//////////////
procedure test2;
begin
try
  strtoint('sss');
exception
  showmessage('1');//遇到异常才执行。
end;//异常处理完毕，继续执行。
showmessage('2');//永远执行end;