try-except-finally处理、控制程序异常

1、第一种：不管是否有异常，都释放资源。Tstring.create;try Tstring 操作 finally Tstring.free;end;

2、第二种：如果出现异常，进行某些操作。try 操作except on E: Exception do MessageBox(Handle, PChar(E.Message), PChar(Application.Title), MB_ICONWARNING); 出错，则。。。提示详细的异常信息end;

3、第三种： 自定义抛出异常提示信息。 raise Exception.Create('Error Message');

4、建议这样嵌套。try try finally end;exceptend;