如何让Delphi对未定义的枚举属性标记报编译错误？

你遇到的这个情况真的挺闹心的——Delphi默认对找不到定义的属性会静默忽略，不会触发编译错误，这本来是为了兼容旧代码（比如某个属性在新版本被移除后，旧代码还能正常跑），但在你的场景里，就导致RTTI处理时出问题却没法提前察觉。

不过别担心，有两种靠谱的办法能让Delphi把这种情况判定为编译错误，从源头避免问题：

方案1：开启并升级未识别属性的编译警告 #

Delphi自带一个针对“未找到属性定义”的警告（编号W1024，提示内容是Attribute 'VbEnumAttribute' not found），默认是关闭状态。你只需要把这个警告的级别提升为错误，以后只要忘记引用属性所在的单元，编译就会直接失败，强制你修正问题。

两种设置方式： #

• 可视化项目设置：
  打开项目选项（点击菜单栏Project > Options），切换到Compiler > Messages标签页，在搜索框输入W1024或者UNKNOWN_ATTRIBUTE，找到对应的警告项，把它的级别从None改成Error即可。
• 代码级指令控制：
  在定义枚举的单元开头（或者项目的全局包含文件里）添加这条编译指令：

  {$WARN UNKNOWN_ATTRIBUTE ERROR}
  

  这样只要当前单元里出现未识别的属性，就会直接触发编译错误，再也不会出现“属性存在但RTTI认不出来”的情况。

方案2：强制属性单元的依赖（适用于你控制属性定义的场景） #

如果你是VbEnumAttribute的开发者，或者能修改属性所在的单元，可以在定义枚举的单元里显式引用属性单元，从代码结构上避免忘记引用的问题：

unit YourEnumUnit;

interface

uses
  // 强制引用属性所在的单元，从根源上杜绝忘记引用的可能
  VbAttributesUnit;

type
  [VbEnumAttribute]
  TFieldDataType = (Numeric, Alphanumeric);

  [VbEnumAttribute]
  TLengthUnits = (Characters, Bytes);

// 后续实现代码...

不过这种方法只能保证当前单元的引用，如果你在其他单元定义同样标记的枚举，还是得手动引用，所以方案1的编译警告方法更全局、更省心。

顺便解释下为什么RTTI不报告这个问题 #

RTTI只会识别编译时成功关联的属性，当你忘记引用属性单元时，Delphi已经把[VbEnumAttribute]这个标记忽略掉了——对RTTI来说，这个枚举从来就没被标记过这个属性，自然没法报告“属性未定义”的问题，因为它根本不知道这个属性应该存在。

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