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 后的代码块。

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

相关问题

Delphi switch语句示例

在Delphi中，`Switch`语句是一种条件结构，常用于根据不同情况执行相应的代码块。它类似于C/C++的`switch`或`case`结构。下面是一个简单的`Switch`语句的例子：

program SwitchExample;
var
  DayOfWeek: TDayOfWeek; // TDayOfWeek是枚举类型，如Monday, Tuesday等

begin
  DayOfWeek := Saturday; // 假设今天是周六

  case DayOfWeek of
    Monday: Writeln('这是星期一');
    Tuesday..Friday: Writeln('这是工作日，可能是周二到周五中的某一天');
    Saturday, Sunday: Writeln('这是周末，可能是周六或周日');
  else
    Writeln('输入的日期不在有效范围内');
  end;
  
  // 如果DayOfWeek变量改变了，程序会检查新的值并相应执行代码
end.

在这个例子中，`case`关键字后面跟着一个枚举值，然后列出一系列可能的匹配情况。如果`DayOfWeek`的值匹配到任何一个`of`后面的分支，就会执行对应的代码。