zoukankan      html  css  js  c++  java
  • 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  更新时间:

    博客园 滔Roy https://www.cnblogs.com/guorongtao 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    FarPoint FpSpread控件的使用收藏
    在Oracle中使用Guid
    oracle 语句的妙用例子
    让服务器iis支持.apk文件下载的设置方法
    oracle 自动生存清库脚本
    winform 消息通讯组件实习
    在css中使用边框做三角形
    JavaScript闭包和ajax
    JavaScript面向对象
    正则表达式
  • 原文地址:https://www.cnblogs.com/guorongtao/p/15127223.html
Copyright © 2011-2022 走看看