[Delphi]ループ処理　for, repeat, while

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

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

→Delphiメニューへ戻る

なお、For で downto を使うと減算ループが可能です。

下記を実行するといずれも同じ結果となります。

フォーム上に TMemo を３つ配置します。

procedure TForm1.Button1Click(Sender: TObject);
var
    i: Integer;
begin

    Memo1.Lines.Clear;
    Memo1.Lines.Add('for');

    for i := 0 to 5 do begin
        Memo1.Lines.Add(IntToStr(i));
    end;

    Memo1.Lines.Add('-------');

    for i := 5 downto 0 do begin
        Memo1.Lines.Add(IntToStr(i));
    end;


    Memo2.Lines.Clear;
    Memo2.Lines.Add('repeat');

    i := 0;
    repeat
        Memo2.Lines.Add(IntToStr(i));
        i := i +1;
    until i > 5;
 

    Memo2.Lines.Add('--------');

    i := 5;
    repeat
        Memo2.Lines.Add(IntToStr(i));
        i := i -1;
    until i < 0;


    Memo3.Lines.Clear;
    Memo3.Lines.Add('while');

    i := 0;
    while i < 6 do begin
        Memo3.Lines.Add(IntToStr(i));
        i := i +1;
    end;

    Memo3.Lines.Add('--------');

    i := 5;
    while i > -1 do begin
        Memo3.Lines.Add(IntToStr(i));
        i := i -1;
    end;

end;

関連記事

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

→Delphiメニューへ戻る