容错性真的很重要

IT商界

周应

　　相信对于喜欢编程的你一定遇到过这样的事情：在自己的电脑上编译成功的程序，在别人的电脑上运行中会出现这样那样的错误。语法、函数固然有一定的因素。可对于不同的软件环境所造成的不可知因素也是关键所在。难道对于这些类似满屏英语的报错信息，我们就束手无策？其实不然，我们完全可以编译一段容错性代码(正规的说应该是异常处理)，来避免此类事件的发生。而Delphi就为我们提供了函数支持，格式如下：

　　try

　　......

　　<语句>

　　......

　　finally

　　......

　　<语句>

　　程序正常执行时，如不发生异常情况。则按顺序执行try与finally之间的语句，如果在执行中发生异常情况，则程序会直接转到finally后的语句开始运行。

　　例如下例：

　　try

　　shellexecute(handle,nil,pchar('mailto:software@cpcw.com'),nil,nil,show_normal);

　　finally

　　showmessage(‘请正确选择你的电子邮件客户端);

　　......

　　当上述程序运行发生异常时，程序会自动运行finally的语句来告知用户，这样做的目的不仅能够使你的程序在发生问题时不会崩溃，还会让人觉得你的程序有一种智能化的感觉。