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

 

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

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

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

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

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-for-repeat-while