[Delphi]処理関連 Break, Continue, Exit

 

※全てのDelphiで動作する保証はありません。また、内容に関し管理人は全ての責任を負いかねます

サンプル ※説明に必要な部分しか記述していません


Delphi関連書籍 amazon


ループの構文 for の中で Break, Continue, Exitを使用した場合の使用例、実行例です

 

これを実行すると

フォーム上に TLabel を上から順に4つ配置します

procedure TForm1.Button1Click(Sender: TObject);

var
    i: Integer;
begin

    for i := 0 to 5 do begin
        ;
    end;

    Label1.Caption := IntToStr(i);


    for i := 0 to 5 do begin
        if i = 2 then begin
            //2 で終了
            Break;
        end;
    end;

    Label2.Caption := IntToStr(i);


    for i := 0 to 5 do begin
        if i < 3 then begin
            //3 より小さい場合は続行
            Continue;
        end
        else begin
            //3 以上で終了
            Break;
        end;
    end;

    Label3.Caption := IntToStr(i);


    Label4.Caption := 'テスト';

    for i := 0 to 5 do begin
        if i = 2 then begin
            //2 で終了し、この手続き(procedure)を終えるので Label4.Captionはそのまま
            Exit;
        end;
    end;

    Label4.Caption := IntToStr(i);


end;

このようになります。

delphi-break-continue-exit

なおBreak, Continueは for / while / repeat で使用することができます。