如何使用break来跳出多重循环...(100分)

L

lslzf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #1

实在是不好意思
我得机器上无法使用论坛的搜索功能

如下面的代码
for i:=0 to 100 do
begin
for j:=0 to 100 do
begin
for k:=1 to 100 do
begin
//这里要如何跳出i的一轮循环
end;
end;
end;

 

影

影 子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #2

var
flag: boolean;

flag := false;
for i:=0 to 100 do
begin
if flag then
break;
for j:=0 to 100 do
begin
if flag then
break;
for k:=1 to 100 do
begin
//这里要如何跳出i的一轮循环
flag := true;
break;
end;
end;
end;

也可以用exit退出循环。

 

L

lslzf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #3

难道没有那种java中的break label的形式吗

 

W

wolf_cyj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #4

用GOTO吧。

 

Z

zw84611

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #5

label + goto

 

Z

zxbyh

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #6

干脆换一种逻辑!
为了这样而这样,代码也太....

建议将这段代码写道一个函数或过程中
procedure TForm1.TstA()
var
i,j,k:integer
begin
for i:=0 to 100 do
begin
for j:=0 to 100 do
begin
for k:=1 to 100 do
begin
//这里要如何跳出i的一轮循环
exit;
end;
end;
end;
end;

 

X

xianjun

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #7

同意zxbyh的写法
当然也可以用GOTO来跳出

 

L

lslzf

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-12-19

• #8

我先弄错了一个东西
还是感谢各位