3
{ This program demonstrates the GetEnumProp function }
15
O:=TMyTestObject.Create;
16
PI:=GetPropInfo(O,'MyEnumField');
18
Writeln('Enum property : ');
19
Writeln('Value : ',GetEnumName(TI,Ord(O.MyEnumField)));
20
Writeln('Get (name) : ',GetEnumProp(O,'MyEnumField'));
21
Writeln('Get (propinfo) : ',GetEnumProp(O,PI));
22
SetEnumProp(O,'MyEnumField','meFirst');
23
Writeln('Set (name,meFirst) : ',GetEnumName(TI,Ord(O.MyEnumField)));
24
SetEnumProp(O,PI,'meSecond');
25
Writeln('Set (propinfo,meSecond) : ',GetEnumName(TI,Ord(O.MyEnumField)));
b'\\ No newline at end of file'