Delphi : while文による繰り返し処理

Delphiで繰り返し処理をするwhile文を使う例を紹介します。

書式

while 条件式 do begin
  ...処理
end;

または

while 条件式 do ...処理;

コード例

procedure TForm1.Button6Click(Sender: TObject);
var
  a:integer;
begin
  a:=0;
  while a<20 do begin
    Memo1.Text := Memo1.Text + IntToStr(a) + ' ';
    inc(a);
  end;
end;

実行結果

実行すると(Memo1)に下記の値が表示されます。

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

補足 : while true do begin... end; の場合

下記の書式を記述すると無限ループになります。whileループ内でbreakやexitなどでループを抜ける処理が必要になります。

while true do begin
  ...処理
end;

コード例

procedure TForm1.Button7Click(Sender: TObject);
var
  a:integer;
begin
  a:=0;
  while true do begin
    Memo1.Text := Memo1.Text + IntToStr(a) + ' ';
    inc(a);
    if (20 < a) then break;
  end;
end;

実行結果

0 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 

著者

Penta

iPentecのメインプログラマー
C#, ASP.NET の開発がメイン、少し前まではDelphiを愛用