Why Gemfury? Push, build, and install  RubyGems npm packages Python packages Maven artifacts PHP packages Go Modules Debian packages RPM packages NuGet packages

bee / fpc-src deb

Repository URL to install this package:

Version: 
3.0.0  ▾
Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw9551a.pp
Size: Mime: 

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.

Products

About

Resources

Contact Gemfury