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 希望内容对你所有帮助,谢谢!
  • 相关阅读:
    纪念日给男(女)朋友的表白页面
    Vue组件的传值(非父子之间)
    express脚手架的安装和使用
    MongoDB数据库
    vuex状态
    MVVM框架的简单理解
    关于vue脚手架
    申请百度密钥
    svg
    微信小程序开发学习笔记
  • 原文地址:https://www.cnblogs.com/guorongtao/p/15127223.html
Copyright © 2011-2022 走看看