blob: e358dbe9fb681ab40443db1a179bd60032a45fcd (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
{ Source provided for Free Pascal Bug Report 2913 }
{ Submitted by "Micha Nelissen" on 2004-01-21 }
{ e-mail: }
program EnumName;
{$mode objfpc}
{$h+}
uses
Classes, TypInfo;
type
TEnumTest = (etOne, etTwo, etThree);
TA = class(TPersistent)
private
FTest: TEnumTest;
published
property Test: TEnumTest read FTest write FTest;
end;
begin
writeln(GetEnumName(GetPropInfo(TA, 'Test')^.PropType, 2));
end.
|
