Verwenden von XML-Enumerationen mit dem XML-Datenbindungsassistenten von Delphi

Question

Ich habe ein XML-Schema, das Aufzählungen verwendet, aber wenn ich das generierte XML-Objekt in Delphi anschaue, wurde die Aufzählungsbeschränkung verworfen. Gibt es eine Möglichkeit, Delphi dazu zu bringen, das Enum zu generieren und es in das Objekt zu integrieren?

XSD Snippet:

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

Was würde ich erwarten, in Delphi zu sehen, ist ein Feld, das eine Enum akzeptiert, die dann in dieses umgewandelt wird ist corresponing Zeichenfolge, wenn die XML generiert wird, aber das Feld ist nur ein gewöhnlicher Zeichenfolge.

Answer 1

Sie können einen eigenen Aufzählungstyp mit denselben String-Konstanten wie Namen erstellen und die Unit TypInfo mit der Funktion GetEnumValue und GetEnumString verwenden. Auf diese Weise können Sie die Namen mit einigen Kleinbuchstaben wie in anderen Delphi-Code Präfix:

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

Answer 2

Es ist nicht möglich, dass die XML-Daten-Assistenten Bindung zu tun, was Sie wollen.

Der Grund dafür ist, dass Aufzählungen in einem XSD nicht kompatibel sind mit Delphi-Identifikatoren, weil sie:

1. Zeichen nicht mit einem Delphi Identifikator enthalten kann
2. Groß- und Kleinschreibung

Grundsätzlich XSD Aufzählungen sind nur Zeichenfolgen mit einer Beschränkung von Werten.

Siehe the enumeration specs und an example.

Beide sind eindeutig inkompatibel mit Delphi-Aufzählungstypen.

Edit: 20.100.125 - Delphi-Attribute

Here is an interesting question ab, wie weit Sie mit dem neuen Attribut und RTTI-Unterstützung in Delphi 2010

--jeroen