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、示例：

{ 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　　更新时间：