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.2.0 / tests / test / ugeneric4.pp
Size: Mime:
unit ugeneric4;

interface

{$mode objfpc}

type
   generic TList<_T>=class(TObject)
     data : _T;
     procedure Fill;
   end;

var
  globaldata : string;

implementation

procedure LocalFill;
begin
  globaldata:='Unit';
end;


procedure TList.Fill;
begin
  LocalFill;
  data:=globaldata;
end;

end.