V Vision Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-08 #1 在错误处理中 try ...//出错位置 ... except ...//处理错误的代码 //此处如何再回到出错处重新执行原来出错的语句? end;
叮 叮叮当当 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-08 #2 var Redo: Boolean; begin repeat Redo := False; try ...//可能出错的位置 ... except ...//处理错误的代码 Redo := True; end; until not Redo end;
var Redo: Boolean; begin repeat Redo := False; try ...//可能出错的位置 ... except ...//处理错误的代码 Redo := True; end; until not Redo end;
S SS2000 Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-08 #5 处理完错误后，如何回到原出错处重新执行原来出错的语句？ 如果还要回到原来的地方，就失去异常处理的意义了，实在要 回到原来的地方，就只有象楼上那样了，所有想继续的地方， 都用 try ... ... except ... ... end; //继续 try ... ... except ... ... end
处理完错误后，如何回到原出错处重新执行原来出错的语句？ 如果还要回到原来的地方，就失去异常处理的意义了，实在要 回到原来的地方，就只有象楼上那样了，所有想继续的地方， 都用 try ... ... except ... ... end; //继续 try ... ... except ... ... end
V Vision Unregistered / Unconfirmed GUEST, unregistred user! 2002-05-09 #6 to ss2000: 错误处理就是在遇到异常时拦住错误并处理掉,而不是处理完就中止过程!!对吗? 打比方说: try ...//打开"A"盘上的文件,如果此时"A"驱中无盘,必然出错 except //if Application.MessageBox('请在"A"驱中插入磁盘,并重试..',IDOKCANCEL.......)=IDOK then //如果选"OK"就回到原出错处再次试着打开"A"盘中的文件! end;
to ss2000: 错误处理就是在遇到异常时拦住错误并处理掉,而不是处理完就中止过程!!对吗? 打比方说: try ...//打开"A"盘上的文件,如果此时"A"驱中无盘,必然出错 except //if Application.MessageBox('请在"A"驱中插入磁盘,并重试..',IDOKCANCEL.......)=IDOK then //如果选"OK"就回到原出错处再次试着打开"A"盘中的文件! end;
