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則全部停止了,有什麼方法

解决方案 »

  1.   

    Continue是跳过该次循环,继续执行下一次循环var
     i,j : integer;
     begin
       for i := 0 to 100 do
       begin
         for j := 0 to 10 do
         begin
           if ...
           else Break; //跳出子循环
         end;
       end;
      

  2.   

    好像不是阿,用Break就跳出子循环,继续大循环
    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.
      

  3.   

    用Break就跳出子循环,但是还会继续大循环。
    必须设置变量退出外圈大循环,不用我告诉你怎么写了把
      

  4.   

    用break就是实现你的想法。把它放在子循环中