delphi case 语句

Delphi中的case语句用于根据一个表达式的值来选择执行哪个分支语句。它的语法如下：

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

其中，expression是要进行比较的表达式，value1、value2、value3等是可能的值或值范围，statement1、statement2、statement3等是与对应的值或值范围匹配的语句块，else语句块是可选的，表示当表达式的值不匹配任何一个分支时执行的语句。

例如，以下代码展示了一个使用case语句的示例：

var
  grade: integer;
begin
  grade := 80;
  case grade of
    90..100: WriteLn('优秀');
    80..89: WriteLn('良好');
    70..79: WriteLn('中等');
    60..69: WriteLn('及格');
    else WriteLn('不及格');
  end;
end;

在这个例子中，根据变量grade的值来选择打印哪个分数段的评价。如果grade的值是80，那么会执行“良好”的分支，并打印出“良好”的评价。如果grade的值是59，那么会执行else分支，并打印出“不及格”的评价。