ネストされたループから抜ける (goto文の利用) - Delphi

Delphiでネストされたループのいちばん深いところから抜け出す場合には、goto文を利用します。

書式

宣言部(var)

コード中(begin ... end間)

"goto ラベル名"から"ラベル名:"にジャンプします。

コード例

procedure TForm1.Button10Click(Sender: TObject);
var
  i,j,k:integer;
label myLoopEnd;
begin
  for i:=0 to 5 do begin
    for j:=0 to 5 do begin
      for k:=0 to 5 do begin
        Memo1.Lines.Add(Format('%d %d %d',[i,j,k]));
        if k>=5 then goto myLoopEnd;
      end;
    end;
  end;
  myLoopEnd:
  Memo1.Lines.Add('Loop End');
end;

実行結果