forループによる繰り返し処理 (for文の利用) - Delphi

書式

for 初期値設定式 to ループ変数閾値 do begin
  ...(処理)
end:

for 初期値設定式 downto ループ変数閾値 do begin
  ...(処理)
end;

コード例1

procedure TForm1.Button1Click(Sender: TObject);
var
  i:integer;
begin
  for i:=0 to 10 do begin
    Memo1.Text := Memo1.Text + IntToStr(i) + ' ';
  end;
end;

実行結果1

0 1 2 3 4 5 6 7 8 9 10

コード例2

procedure TForm1.Button2Click(Sender: TObject);
var
  i:integer;
begin
  for i:=10 downto 0 do begin
    Memo1.Text := Memo1.Text + IntToStr(i) + ' ';
  end;
end;

実行結果2

10 9 8 7 6 5 4 3 2 1 0

著者

Penta

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