在Turbo Pascal中用IoResult防止程序崩溃

Author: 赵卫成 Date: 1997-01-01
　　在用Ｔｕｒｂｏ　ＰＡＳＣＡＬ语言编程时，常遇到输入输出错误。例如：变量ｔ１若定义为整型，而在执行ｒｅａｄｌｎ（ｔ１）时，输入了一个字串；在读写软盘时，盘片未插入等，这时程序就可能崩溃。防止程序在此时崩溃的一个办法，就是使用Ｔｕｒｂｏ　ＰＡＳＣＡＬ提供的ＩｏＲｅｓｕｌｔ函数。
　　函数ＩｏＲｅｓｕｌｔ返回最近一次Ｉ／Ｏ操作的状态值，返回值是０时表示输入输出操作成功。在使用前应加上｛＄Ｉ－｝，关闭Ｉ／Ｏ检查；如果ＩｏＲｅｓｕｌｔ返回值为０，即操作成功，此时应再加上｛＄Ｉ＋｝，以打开Ｉ／Ｏ检查。程序ＴＥＳＴ演示了如何使用ＩｏＲｅｓｕｌｔ来防止程序崩溃。
　　ＰＲＯＧＲＡＭ　Ｔｅｓｔ；
　　ＶＡＲ　ｔ１，ｔ２：ＩＮＴＥＧＥＲ；ｆ：ＴＥＸＴ；
　　ＢＥＧＩＮ　　
　　ＲＥＰＥＡＴ　　　｛判断ｔ１是否为一个整数｝　　　　　　
　　Ｗｒｉｔｅ（＇请输入一个整数：＇）；　　　　
　　｛＄Ｉ－｝　Ｒｅａｄｌｎ（ｔ１）；ｔ２：＝ＩｏＲｅｓｕｌｔ；　　
　　ＵＮＴＩＬ　ｔ２＝０；　　　｛只有在输入正确时才跳出循环｝　　　　
　　｛＄Ｉ＋｝　Ｗｒｉｔｅｌｎ（＇正确！＇）；Ｗｒｉｔｅｌｎ；　　
　　ＲＥＰＥＡＴ　　　｛检查Ａ驱是否准备好写入文件｝　　　　　　
　　Ｗｒｉｔｅｌｎ（＇请插入Ａ盘后敲回车键！＇）；Ｒｅａｄｌｎ；　　　　　　
　　Ａｓｓｉｇｎ（ｆ，＇　ｔｅｍｐ．ｔｘｔ＇）；　　　　
　　｛＄Ｉ－｝　Ｒｅｗｒｉｔｅ（ｆ）；　　　　　　
　　ｔ２：＝ＩｏＲｅｓｕｌｔ；　　
　　ＵＮＴＩＬ　ｔ２＝０；　　　｛只有在Ａ驱中插入软盘而且写保护开关关上时才跳出循环｝　　　　　　
　　Ｗｒｉｔｅｌｎ（ｆ，＇ｏｋ！＇）；　　　　　　
　　Ｃｌｏｓｅ（ｆ）；　　　　
　　｛＄Ｉ＋｝　Ｗｒｉｔｅｌｎ（＇Ａ盘上写ｔｅｍｐ．ｔｘｔ正常！＇）；
　　ＥＮＤ