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

Repository URL to install this package:

Details    
fpc-src / usr / share / fpcsrc / 3.0.0 / tests / webtbs / tw7679.pp
Size: Mime:
{$mode objfpc}
{$h+}
uses
  TypInfo;
type
  Enum = (a, b, c);
var
  S : string;
begin
  S := 'Text';
  S := S + 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line generate error
  S := 'xyz' + GetEnumName(TypeInfo(Enum), 1); // This line is OK!
end.