xml - 通过 Delphi XML 数据绑定(bind)向导使用 XML 枚举

Question

我有一个使用枚举的 XML 模式，但是当我在 Delphi 中查看生成的 XML 对象时，枚举限制已被删除。有没有办法让 Delphi 生成枚举并将其构建到对象中？

XSD 片段:

<xs:simpleType name="enumType" final="restriction">
    <xs:restriction base="xs:NMTOKEN">
        <xs:enumeration value="Each"/>
        <xs:enumeration value="Units"/>
        <xs:enumeration value="Area"/>
        <xs:enumeration value="Payroll"/>
        <xs:enumeration value="Sales"/>
        <xs:enumeration value="TotalCost"/>
        <xs:enumeration value="Other"/>
    </xs:restriction>
</xs:simpleType>

我希望在 Delphi 中看到的是一个接受枚举的字段，然后在生成 XML 时将其转换为相应的字符串，但该字段只是一个普通字符串。

Answer 1

您可以做的是使用与名称相同的字符串常量创建您自己的枚举类型，并将单元 TypInfo 与函数 GetEnumValue 和 GetEnumString 一起使用。这允许您像在其他 Delphi 代码中一样在名称前加上几个小写字母:

Value :=  TMyEnum( GetEnumValue( typeinfo( TMyEnum ), Prefix + AString )  )