Delphi中case语句的用法详解

Delphi中的case语句是一种分支语句，可以根据表达式的值来执行不同的代码段。语法如下：

case expression of 
  value1: statement1; 
  value2: statement2;
  ...
  else statementN;
end;

其中expression表示一个可以被计算出值的表达式，value1、value2等表示表达式可能出现的值，statement1、statement2等表示当表达式的值为value1、value2等时要执行的语句，else表示当表达式的值不为value1、value2等时要执行的语句。

使用方法

1. 在case语句中，可以使用任何类型的表达式，但是表达式的值必须是可以被比较的，比如整数、字符串等。

2. case语句中可以使用多个value，每个value可以有多个statement，这些statement会按照顺序依次执行，直到遇到break语句或者case语句结束为止。

3. case语句中可以使用else语句，这个语句可以作为默认的分支，当表达式的值不为value1、value2等时，就会执行else语句中的语句。

4. case语句可以嵌套使用，但是嵌套的深度不能太深，否则可能会导致程序运行效率降低，甚至出现运行错误。

示例代码

var 
  a: Integer;
begin
  a := 1;
  case a of
    1:
      begin
        Writeln('a=1');
        Writeln('This is a test');
      end;
    2:
      begin
        Writeln('a=2');
        Writeln('This is another test');
      end;
    else
      Writeln('a is not 1 or 2');
  end;
end.

以上代码实现的功能是：根据变量a的值来判断，如果a=1，则输出“a=1”和“This is a test”；如果a=2，则输出“a=2”和“This is another test”；如果a不是1或2，则输出“a is not 1 or 2”。