Delphi 系统[9]关键字和保留字 for、to、downto、do、while、repeat、until

Delphi 系统[9]关键字和保留字  for、to、downto、do、while、repeat、until

1、定义：

• for..to（或downto） do 组合使用，构成 for 循环语句。 
• while..do 组合，构成 while 循环语句。 
• repeat..until 组合，构成 repeat 循环语句。 
• for 还可以与 in 组合，构成 for 循环语句，详见 in 
• do 还可以与 with组合构成默认对象语句，详见 with 
• do 还可以与 try..except..on 组合使用，构成异常处理语句，详见 except。 

2、示例：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51

{ for 循环语句，循环变量递增 to } procedure TForm1.Button1Click(Sender: TObject); var   I, iSum: Integer; begin   iSum := 0;   for I := 1 to 100 do     iSum := iSum + I;   Caption := IntToStr(iSum);  { 结果： 5050 } end;    { for 循环语句，循环变量递减 downto } procedure TForm1.Button1Click(Sender: TObject); var   I, iSum: Integer; begin   iSum := 0;   for I := 100 downto 1 do     iSum := iSum + I;   Caption := IntToStr(iSum);  { 结果： 5050 } end;      { while 语句 } procedure TForm1.Button1Click(Sender: TObject); var   I, iSum: Integer; begin   iSum := 0;   I := 0;   while I <= 100 do begin     iSum := iSum + I;     Inc(I);   end;   Caption := IntToStr(iSum);  { 结果：5050 } end;      { repeat 语句 } procedure TForm1.Button1Click(Sender: TObject); var   I, iSum: Integer; begin   iSum := 0;   I := 0;   repeat     iSum := iSum + I;     Inc(I);   until I > 100;   Caption := IntToStr(iSum);  { 结果： 5050 } end;

　　

 

 

 

创建时间：2021.08.11　　更新时间：