whileによる繰り返し処理 (while文の書式) - Delphi

書式

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;

実行結果

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 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を愛用