程序流程的控制之条件分支（Delphi）

最新推荐文章于 2025-07-24 10:35:12 发布

转载最新推荐文章于 2025-07-24 10:35:12 发布 · 84 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/BillLei/p/4286043.html

本文详细介绍了Pascal语言中的if语句和case语句的使用方法，包括基本语法、多条件判断及不同条件下的执行流程。通过示例代码帮助读者理解如何根据不同条件执行相应的操作。

if语句主要来检测一个条件，并根据这个条件是True或者False来执行一段代码；

         var
        
         I: 
         Integer
         ;
        
         FileGood: 
         Boolean
         ;
        
         begin
        
         FileGood := 
         True
         ;
        
         if 
         FileGood 
         then     
         { 简洁的写法，判断FileGood是否为True}
        
         ShowMessage(
         'True'
         );
        
         { 上面的写法等同于下面}
        
         if 
         FileGood = 
         True 
         then 
         ShowMessage(
         'True'
         );
        
         if 
         I > 
         0 
         then       
         { 如果I大于0}
        
         DoSomething1
        
         else 
         if 
         I < 
         0 
         then  
         { 如果I小于0，else if块不是必须的}
        
         DoSomething2
        
         else                
         { 如果是其他条件，通常来实现默认的处理，else块也不是必须的}
        
         DoSomething;
        
         end
         ;

case语句可以看成是if语句的发展，它可以根据一个表达式的结果使程序执行多个代码块中的某一个代码块，此表达式的类型只能是有序类型变量作为条件因子，其他的如字符串则是行不通的。

 
           var
          
           I: 
           Integer
           ;
          
           begin
          
           case 
           I 
           of
          
           1
           :      
           { 如果 I = 1}
          
           DoSomething1;
          
           2
           , 
           3
           :   
           { 如果 I = 2或者3，相当于if I in [2, 3]}
          
           DoSomething2;
          
           4..10
           :  
           { 如果 I在4到10范围内（含4和10）}
          
           DoSomething3;
          
           else      
           { 如果是其他条件，通常用来实现默认处理，else块也不是必须的}
          
           DoSomething;
          
           end
           ;
          
           end
           ;