3
{ This program demonstrates the GetEnumName, GetEnumValue functions }
14
O:=TMyTestObject.Create;
15
TI:=GetPropInfo(O,'MyEnumField')^.PropType;
16
Writeln('GetEnumName : ',GetEnumName(TI,Ord(O.MyEnumField)));
17
Writeln('GetEnumValue(mefirst) : ',GetEnumName(TI,GetEnumValue(TI,'mefirst')));
b'\\ No newline at end of file'