如何退出这个循环?

newline 2004-01-12 10:20:06
for i:=0 to 100 do
begin
for j:=0 to 10 do
try
begin
···
except on ***Error do //此处如何写?
end;
···
···
end;

假如i=5,j=7时,发生***Error错误,我要退出i:=5的循环,而进入i:=6的循环,如何作?
...全文
333 16 打赏 收藏 转发到动态 举报
写回复
用AI写文章
16 条回复
切换为时间正序
请发表友善的回复…
发表回复
myblind 2004-01-23
  • 打赏
  • 举报
回复
goto也不是不能用!!!!!
有时候goto很方便,而且不会让你看不懂程序。

一定要用 GOTO
麻子 2004-01-23
  • 打赏
  • 举报
回复
应该用break
SiTwo 2004-01-23
  • 打赏
  • 举报
回复
用个比较淫荡的办法吧~

j:=10;
continue;
angelior 2004-01-23
  • 打赏
  • 举报
回复
break;

是退出FOR

Exit是退出過程或函數
wintergoes 2004-01-22
  • 打赏
  • 举报
回复
标志位,怎么解决的?
我正想办法解决着个问题呢。
newline 2004-01-13
  • 打赏
  • 举报
回复
我已经用一个标志位把这个问题解决了。

不过若是用continue或break,注意我这里是一个嵌套循环,不仅要退出当前小循环,还要退出上层循环,并进入下一个上层循环。
penet 2004-01-12
  • 打赏
  • 举报
回复
用continue
dulei115 2004-01-12
  • 打赏
  • 举报
回复
不要滥用goto语句。
说明:goto语句会破坏程序的结构性,所以除非确实需要,最好不使用goto语句。
welong 2004-01-12
  • 打赏
  • 举报
回复
goto is the best!
dulei115 2004-01-12
  • 打赏
  • 举报
回复
假如i=5,j=7时,发生***Error错误
for i:=0 to 100 do//break转到这里,i=6,即跳出一层(for j:=0 to 10 do)循环
begin
for j:=0 to 10 do//continute转到这里,i=5,j=8,即提前结束本次循环,进入下一次循环
try
begin
···
except on ***Error do
end;
···
···
end;
···

//Exit转到这里,即结束procedure
lx47 2004-01-12
  • 打赏
  • 举报
回复
要退出i:=5的循环,而进入i:=6的循环 应该用continue吧?
exit 和 break是退出整个循环啊。
yitong0834 2004-01-12
  • 打赏
  • 举报
回复
exit 或 break
dulei115 2004-01-12
  • 打赏
  • 举报
回复
break;
ttzzj 2004-01-12
  • 打赏
  • 举报
回复
except on ***Error do
break;
Allanlove 2004-01-12
  • 打赏
  • 举报
回复
exit;
qiume 2004-01-12
  • 打赏
  • 举报
回复
在循环语句里出错时,
想继续执行循环用:Continue;
想退出循环用:Break;

5,388

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧