Uso de enumeraciones XML con Delphi XML Data Binding Wizard

Question

Tengo un esquema XML que usa enumeraciones, pero cuando miro el objeto XML generado en Delphi, la restricción de enumeración se ha eliminado. ¿Hay alguna forma de que Delphi genere la enumeración y la construya en el objeto?

XSD Fragmento:

<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> 

lo que esperaría ver en Delphi es un campo que acepte una enumeración que luego se convirtió en su corresponing cadena cuando se genera el XML, pero este campo es sólo un ordinario cuerda.

Answer 1

Lo que puedes hacer es crear tu propio tipo enumerado con las mismas constantes de cadena como nombres y usar la unidad TypInfo con la función GetEnumValue y GetEnumString. Esto le permite prefijar los nombres con algunas letras minúsculas como en otro tipo de código de Delphi:

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

Answer 2

No es posible que el asistente para hacer lo que quiera el enlace de datos XML.

La razón es que las enumeraciones en un XSD no son compatibles con identificadores delphi porque:

1. puede contener caracteres incompatibles con un identificador de Delphi
2. son mayúsculas y minúsculas

Básicamente enumeraciones XSD son solo cadenas con un límite de valores.

Ver the enumeration specs y an example.

Ambos son claramente incompatibles con los tipos de enumeración Delphi.

Editar: 20100125 - Delphi atributos

Here is an interesting question de lo lejos que puede ir con el nuevo atributo y el apoyo de RTTI en Delphi 2010.

--jeroen