try语句中如何在发生异常时重试

Question

用repeat  ...   until xxxx ，包绕在 try except end 周围

Answer 1

不建议使用循环进入Try语句。
因为，try出现异常，比如文件被占用，不能进行文件的编辑处理。这类异常，进入循环，会进入死循环。
建议出现提示符，，并立即退出。让用户解除故障后再执行。
故障不解决，是无法继续下去的。

Answer 2

同意楼上
LZ如果执意要这么做，可以将tyr和except之间的代码写成过程或函数，在except和end之间再次调用此过程或函数。

Answer 3

如果except里面再调用本过程
岂不是彻底死循环了?
建议还是中断运行,交给用户

Answer 4

就是加一个MessageBox 然客户选择 重试 忽略 中止，重试时代码无法编写

Answer 5

用一个变量保存一下是否Try成功，如果成功跳出循环，否则一直循环比如
BOk := false;
while not BOK do
begin
   try
      dosomething;
      BOk := true;
   except
   end;
end;