fpcsrc/tests/webtbs/tw9551a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17


uses 
  TypInfo,sysutils;

type
  tmy2enum = (e1,e2,e3,e4);


procedure Test;
begin
  if (GetEnumName(TypeInfo(TMy2Enum), Ord(e3)) <> 'e3') then
    halt(1);
end;

begin 
 Test;
end.