try except语句 和 try finally语句 用法以及区别

1. try//尝试执行   
2.     {SomeCode}      
3. except//出错的时候执行, Except有特定的错误类型    
4.     {SomeCode}      
5. end;    
6.   
7. try//尝试执行   
8. {SomeCode}      
9. finally//无论如何都强制执行   
10. {SomeCode}      
11. end;    
12.   
13. 例:   
14. try  
15. Age:=StrToInt(Edit1.Text);   
16. ShowMessage(Format('生于%d年',[YearOf(Now)-Age]));   
17. except   
18. on EConvertError do  
19. showmessage('输入编辑框的不是一个有效的数字!');   
20. on ERangeError do  
21. showmessage('输入编辑框的年龄值太大!');   
22. end;   
23.   
24.   
25. 保留字on…do用于判断异常类型。必须注意的是：except后面的语句必须包含在某一个on…do模块中，而不能单独存在。这又是同finally不同的一个地方。   
26.   
27. 异常处理   
28. try  
29.      //成功失败都跳进finally语句里执行   
30. finally  
31.   
32. end;   
33. try  
34.     //失败才跳进 except里执行   
35. except on e:Exception do  
36. ShowMessage(e.Message);   
37. end;