在两级While语句的第二级的语句，如何实现如果出错就跳到第一级的下一个循环中。(50分)

A

apolloone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #1

如
While Not table1.Eof Do //第一级While
Begin
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//出错就跳到第一级While的下一个循环中。如何实现呢？
End;
...
End;
...
End;

 

L

lichaogang

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #2

break,跳出一层循环。

 

O

oldsheep35

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #3

Break跳出里面的While循环!

 

M

mstar

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-16

• #4

是的 很简单的 为什么要问呢？

 

A

apolloone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #5

While Not table1.Eof Do //第一级While
Begin
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//出错就跳到第一级While的下一个循环中。如何实现呢？
End;
... // Break是可以跳出里面的这个循环，但是左边的“...”确也运行啊！可不可以直接进入外面的While语句的下一循环？
End;
...
End;

 

黑

黑月亮

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #6

var a:boolean;
a:=false;
While Not table1.Eof Do //第一级While
Begin
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//出错就跳到第一级While的下一个循环中。如何实现呢？
a:=true;
break;
End;
if a then break
//如果a为true再跳
... // Break是可以跳出里面的这个循环，但是左边的“...”确也运行啊！可不可以直接进入外面的While语句的下一循环？
End;
...
End;

 

M

majorsoft

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #7

试试goto

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #8

procedure TForm1.Button1Click(Sender: TObject);
var
i, j: integer;
begin
i := 0;
while i < 5 do
begin
try
j := 0;
while j < 5 do
begin

//do
if i = 2 then //跳到第一级While的下一个循环中

abort;

inc(j)
end;



showmessage(inttostr(i));



inc(i)
except
inc(i)
end;
end;

end;

 

H

hfghfghfg

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #9

abort + except 有时 可以 代替 goto

 

N

netwinds

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-17

• #10

......
Label
BookLabel;
.....


While Not table1.Eof Do //第一级While
Begin
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//********************************
Goto BookLabel
//********************************
End;
...
End;
BookLabel:
...
End

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-18

• #11

While Not table1.Eof Do //第一级While
Begin
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//出错就跳到第一级While的下一个循环中。如何实现呢？
Break;//这里将跳到下面的地方，但不是外层While的开始部位。
End;
...
End;
//Break后会跳到这里，然后继续向下执行，这个不是你要的。
...
End;
应该这样做：
var
ContinueFirstWhile: Boolean;
begin
While Not table1.Eof Do //第一级While
Begin
ContinueFirseWhild := False;
...
While Not table2.Eof Do //第二级While
Begin
...
Try
...
Except
//出错就跳到第一级While的下一个循环中。如何实现呢？
ContinueFirstWhile := True;
Break;
End;
...
End;
if ContinueFirstWhile then Continue;//这样就跳到前面重头执行了：）
...
End;

 

Y

yu_ting

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-18

• #12

是头晕呀？！

 

Z

zqw0117

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-18

• #13

楼主给分啊，我的回答是满足你的要求的：）

 

A

apolloone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2003-10-19

• #14

谢谢

 

A

apolloone

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2004-03-12

• #15

多人接受答案了。