mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 22:39:25 +02:00
40247d2d87
whose base is not 0, or that has jumps in its value range (manits #9551) git-svn-id: trunk@12960 -
24 lines
352 B
ObjectPascal
24 lines
352 B
ObjectPascal
{ %fail }
|
|
|
|
uses
|
|
TypInfo,sysutils;
|
|
|
|
const
|
|
csMyConstValueA = 10;
|
|
csMyConstValueB = 20;
|
|
csMyConstValueC = 30;
|
|
|
|
type
|
|
TMyEnum = (meValueA = csMyConstValueA,
|
|
meValueB = csMyConstValueB,
|
|
meValueC = csMyConstValueC);
|
|
|
|
procedure Test;
|
|
begin
|
|
writeln(GetEnumName(TypeInfo(TMyEnum), Ord(meValueB)));
|
|
end;
|
|
|
|
begin
|
|
Test;
|
|
end.
|