var
i: Integer;
begin
i := 10;
while i > 0 do
begin
if i = 8 then
begin
Dec(i);//如果没有这个,会形成死循环,对于此类使用计数的方法处理的使用continue特别要注意。
Continue;
end;
Dec(i)
end;
ShowMessage('op');
end;
i: Integer;
begin
i := 10;
while i > 0 do
begin
if i = 8 then
begin
Dec(i);//如果没有这个,会形成死循环,对于此类使用计数的方法处理的使用continue特别要注意。
Continue;
end;
Dec(i)
end;
ShowMessage('op');
end;