delphi switch语句例子

在 Delphi 中，虽然没有直接的 switch 语句，但可以使用 case 语句来实现类似的功能。下面是一个简单的示例：

var
  num: Integer;

begin
  num := 2;

  case num of
    1: // 如果 num 等于 1
      begin
        // 执行相应的代码
        ShowMessage('num 等于 1');
      end;
    2: // 如果 num 等于 2
      begin
        // 执行相应的代码
        ShowMessage('num 等于 2');
      end;
    3: // 如果 num 等于 3
      begin
        // 执行相应的代码
        ShowMessage('num 等于 3');
      end;
    else // 如果 num 不等于上述任何一个值
      begin
        // 执行相应的代码
        ShowMessage('num 不等于 1、2 或 3');
      end;
  end;
end;

在上述示例中，根据 `num` 的值，使用 case 语句判断并执行相应的代码块。如果 `num` 的值等于某个 case 语句后的值，将会执行对应的代码块。如果 `num` 的值不等于任何一个 case 的值，将会执行 else 后的代码块。

希望这个例子能帮助到你！如有更多问题，请随时提问。