For..Next 繰り返し For..Next 繰り返し
For..Nextは指定した回数ループするフロー制御ステートメントです。
Delphiでも同じように for..to do を使用します。
※Toを指定した場合、増分値は必ず１です。DownToを指定した場合は−１です。
BASIC の SKIP に相当するものはありません。
| ■ for の例 |
procedure TForm1.Button1Click(Sender: TObject);
type
TWeek = (wkSun, wkMon, wkTue, wkWed, wkThu, wkFri, wkSat);
var
i : integer;
c : char;
w : TWeek;
begin
//昇順にループ
for i := 0 to 10 do begin
Memo1.Lines.Add( IntToStr(i) );
end;
//降順にループ
for i := 10 downto 0 do begin
Memo1.Lines.Add( IntToStr(i) );
end;
//Char型でループ
for c := 'a' to 'z' do begin
Memo1.Lines.Add(c);
end;
//自作の列挙型でループ
for w := wkSun to wkSat do begin
case w of
wkSun : Memo1.Lines.Add('SUN');
wkMon : Memo1.Lines.Add('MON');
wkTue : Memo1.Lines.Add('TUE');
wkWed : Memo1.Lines.Add('WED');
wkThu : Memo1.Lines.Add('THU');
wkFri : Memo1.Lines.Add('FRI');
else
Memo1.Lines.Add('SAT');
end;
end;
end;
|