德尔福＆＃34;案例＆＃34;表达式期望不变

Question

我将用C编写的通讯库移植到Delphi，后者使用 #define 和＆＃34; 切换案例＆＃34;其中一个功能。

我使用＆＃34; const ＆＃34;翻译了它们。和＆＃34; 案例＆＃34;在德尔福。

但Delphi编译器抱怨说＆＃34; [dcc32错误] Comm.Meter.pas（76）： E2026期望的常量表达式＆＃34;。

只要我看到，就没有任何非常数。为什么是这样？什么是正确的解决方案？

Const
  COM_SOH: Byte = 1;    // Start of Header
  COM_STX: Byte = 2;    // Start of Text
  COM_ETX: Byte = 3;    // End of Text
  COM_ACK: Byte = 6;    // Acknowledge
  COM_NACK: Byte = 21;  // Not acknowledge
  COM_CR: Byte = 13;
  COM_LF: Byte = 10;
  COM_DIV: Byte = 47;

function test_case(const ch: byte): Int32;
begin
  Result := 0;

  case ch of
    COM_DIV:
    begin
      Result := ch + 1;
    end;

    COM_ACK:
    begin
      Result := ch + 2;
    end;

    COM_NACK:
    begin
      Result := ch + 3;
    end;

    COM_STX:
    begin
      Result := ch + 4;
    end;
  end;
end;