当程序出错时,有没有办法让程序继续执行后面的代码?(100分)

  • 主题发起人 主题发起人 hlsoft
  • 开始时间 开始时间
H

hlsoft

Unregistered / Unconfirmed
GUEST, unregistred user!
当程序出错时,有没有办法让程序继续执行后面的代码?
比如有10行代码,功能是分别打开10个文件,当第1行代码运行出错时,能不能让程序继续打开另外9个文件?
 
可以! 将每个文件的打开都放在下面的模块中
try
打开文件 1
except on E: Exception do
begin
发生错误做点什么
end;
end;
try
打开文件 2
except on E: Exception do
begin
发生错误做点什么
end;
end;
......
 
for i := 1 to 10 do
begin
try
OpenFile......
except { 屏蔽异常 }
end;
end;
 
谢谢楼上2位,不过实际上我的程序段有几百行,而且每行代码都不一样,要是每行都加try except 岂不是累死了?
这种问题该怎么办?
 
晕,你还每行都出异常?调试一遍把出异常的地儿都干掉
 
程序代码没有问题,而是客户的系统可能禁止某些操作,所以需要跳过这些代码
 
这不是客户的权限问题吗?把代码分组,生成不同的函数,想执行什么就去执行什么
 
过节了[:D]
 
是啊,写程序异常是必需要处理的啊。
把代码模块化,对模块进行异常处理,就不显得乱了。
 
多人接受答案了。
 
后退
顶部