使用Inc函数给枚举类型赋值报“Left Side cannot be assigned to”的原因及解决

错误原因 #

1. Inc是过程而非函数：Pascal中的Inc是用于修改变量值的过程，没有返回值，因此不能用j := Inc(...)这种赋值写法，这是IDE提示“Left side cannot be assigned to”的核心原因。
2. 类型不匹配：Key-Ord('0')得到的是Integer类型，而Inc的第二个参数需要与第一个参数（TWizPages枚举类型）兼容，这直接导致了“Incompatible types”错误。

正确实现方式 #

要实现Alt+0-9切换对应枚举页面，需要先计算整数偏移量，再将其转换为枚举类型，同时必须做边界检查避免越界：

procedure TfrmWizard.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);
var
  j: TWizPages;
  Offset: Integer;
begin
  // 仅处理Alt+数字键（覆盖主键盘和小键盘）
  if Shift = [ssAlt] then
  begin
    // 计算0-9的偏移量
    if (Key >= Ord('0')) and (Key <= Ord('9')) then
      Offset := Key - Ord('0')
    else if (Key >= vk_Numpad0) and (Key <= vk_Numpad9) then
      Offset := Key - vk_Numpad0
    else
      Exit; // 非目标按键，直接退出

    // 检查偏移量是否在枚举的有效范围内
    if (Offset >= 0) and (Offset <= High(TWizPages) - Low(TWizPages)) then
    begin
      // 将整数偏移转换为枚举类型
      j := TWizPages(Low(TWizPages) + Offset);
      // 此处添加切换到对应页面的逻辑，例如：
      // WizardControl.ActivePage := j;
    end;
  end;
end;

补充说明 #

• 如果你的TWizPages枚举是从0开始定义的（比如type TWizPages = (wpPage0, wpPage1, ..., wpPage9);），可以简化类型转换为j := TWizPages(Offset);，但保留Low(TWizPages)的写法更通用，能适配任意起始值的枚举。
• 边界检查是必要的，可避免输入的数字超出枚举范围导致非法内存访问。

内容的提问来源于stack exchange，提问作者user3161924