delphi - 如何扩展枚举类型？

Question

我经常需要给一些第三方枚举类型添加一个“默认值”，例如:

  TThirdPartyEnum = (
    eA,
    eB,
    eC
  );

我想定义一个这样的枚举类型:

TMyEnum = (
  eA,
  eB,
  eC,
  eDefault
);

我想引用 TThirdPartyEnum值以避免维护 TMyEnum (应在每次 TThirdPartyEnum 值更改时更新)。

我尝试如下失败:

  TMyEnum = Low(TThirdPartyEnum)..High(TThirdPartyEnum) + eDefault;

  TMyEnum = (
    Low(TThirdPartyEnum)..High(TThirdPartyEnum),
    eDefault
  );

是否有编译器可以理解的语法？

Answer 1

您不能扩展枚举类型。

您将需要一种不同的方法来解决您的问题，可能是通过声明一个新的枚举类型并编写辅助方法来在它们之间进行映射。您可以使用记录助手的隐式强制转换运算符来使代码更具可读性，但这可能比任务证明的更复杂。