var i,j:integer;
begin
for i:= 0 to 100 do
begin
for j:= 0 to 10 do
begin
if
end;
end;
end;
請問我在子循環裡用條件來判斷,如果不符合條件,就終止子循環,繼續外面的循環,我用exit或break則全部停止了,有什麼方法
begin
for i:= 0 to 100 do
begin
for j:= 0 to 10 do
begin
if
end;
end;
end;
請問我在子循環裡用條件來判斷,如果不符合條件,就終止子循環,繼續外面的循環,我用exit或break則全部停止了,有什麼方法
i,j : integer;
begin
for i := 0 to 100 do
begin
for j := 0 to 10 do
begin
if ...
else Break; //跳出子循环
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
var i,j:integer;
begin
for i:= 0 to 10 do
begin
for j:= 0 to 10 do
begin
if i <> 9 then
self.Memo1.Lines.Add(inttostr(i)+'='+inttostr(j))
else break;
end;
//Continue;
end;
end;end.
必须设置变量退出外圈大循环,不用我告诉你怎么写了把