while语句

Question

请问while 语句在object pascal 中如何实现嵌套，为什么我不能像turbo 
一样实现嵌套呢，能编译，但只能完成一次子循环，为什么？

Answer 1

while i<10 do
begin
    while j<10 do
    begin
        ……
        j := j+1;
    end;
    ……
    i := i+1;
end;

Answer 2

老子写了这么久的delphi还没见过不能嵌套的.
贴出来看看!!

Answer 3

while i<10 do
begin
    while j<10 do
    begin
        ……
        showmessage(format('%4d,%4d',[i,j]));
        j := j+1;
    end;
    ……
    i := i+1;
end;

Answer 4

while i<10 do
begin
    while j<10 do
    begin
        showmessage(format('%4d,%4d',[i,j]));
        j := j+1;
    end;
    ……
    i := i+1;
end;
看看到底怎么回事就可以了。

Answer 5

初始值问题吧.或者begin-end块并没有包括你所的语句,导致只执行一次的错觉.:)

Answer 6

我想这是不可能的啊，一定是代码问题。
要DELPHI这都不能做能，呵呵，早给用户扔了

Answer 7

严重同意上面各位的意见
楼主还要好好看看Opascal