mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 20:33:13 +02:00
40247d2d87
whose base is not 0, or that has jumps in its value range (manits #9551) git-svn-id: trunk@12960 -
18 lines
176 B
ObjectPascal
18 lines
176 B
ObjectPascal
{ %fail }
|
|
|
|
uses
|
|
TypInfo,sysutils;
|
|
|
|
type
|
|
tmy2enum = (e1=20,e2,e3,e4);
|
|
|
|
|
|
procedure Test;
|
|
begin
|
|
writeln(GetEnumName(TypeInfo(TMy2Enum), Ord(e3)));
|
|
end;
|
|
|
|
begin
|
|
Test;
|
|
end.
|