repeat until文を利用した繰り返し処理 - Delphi

Delphiのrepeat~until文を使った繰り返し処理を紹介します。

コード例1

procedure TForm1.Button13Click(Sender: TObject);
var
  i:integer;
begin
  i:=0;
  repeat
    Memo1.Text := Memo1.Text + IntToStr(i) + ' ';
    inc(i);
  until i > 20;
end;

実行結果1 (Memo1)

コード例2

条件が最初から偽(false)の場合でもループは1回は実行される例です。

procedure TForm1.Button13Click(Sender: TObject);
var
  i:integer;
begin
  i:=0;
  repeat
    Memo1.Text := Memo1.Text + IntToStr(i) + ' ';
    inc(i);
  until i < 10;
end;

実行結果2 (Memo1)