Korzystanie Wyliczenia Delphi XML z danych XML Kreatora

Question

Binding Mam schematu XML, który używa wyliczeń, ale kiedy patrzę na wygenerowanego obiektu XML w Delphi, ograniczenie wyliczenie zostało upuszczone. Czy istnieje sposób, aby Delphi wygenerował enum i zbudował go na obiekcie?

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> 

co by się spodziewać, aby zobaczyć w Delphi jest dziedziną, która akceptuje enum, który jest następnie przekształcany To corresponing ciąg gdy XML jest generowany, ale to pole jest tylko zwykłym strunowy.

Answer 1

Co możesz zrobić, to stworzyć swój własny wyliczony typ z tymi samymi ciągami znaków, co nazwy i użyć jednostki TypInfo z funkcją GetEnumValue i GetEnumString. Pozwala to prefiks nazwy z kilkoma małymi literami jak w innych kodu Delphi:

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

Answer 2

Nie jest możliwe dla danych XML Binding kreatora, aby robić to, co chcesz.

Powodem jest to, że wyliczenia w XSD nie są zgodne z identyfikatorami delphi bo:

1. może zawierać znaków niezgodnych z identyfikatorem Delphi
2. jest wielkość liter

Zasadniczo XSD wyliczenia są tylko ciągami o ograniczonych wartościach.

Zobacz the enumeration specs i an example.

Oba są wyraźnie sprzeczne z Delphi typów wyliczeniowych.

Edit: 20100125 - Delphi atrybuty

Here is an interesting question o tym, jak daleko można pójść z nowym atrybutem i wsparcia RTTI w Delphi 2010.

--jeroen