t_id
1241
t_adddate
2004/01/23
t_result
0
t_knownrunerror
0
tr_id | run | tr_ok | tr_skip | tr_result |
---|---|---|---|---|
949268324 | 1015553 | True | False | Successfully run |
Record count: 1
{ 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.