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 / tw8028.pp
Size: Mime:
program test;

{$mode objfpc}
{$inline on}

type
  TTest = procedure of object;

  TMyRecord = record
    Test: TTest;
  end;

  TMyObject = class
    procedure Test;
  end;

function TMyRecordMake(const Test: TTest): TMyRecord; inline;
begin
  Result.Test := Test;
end;

procedure TMyObject.Test;
begin
  TMyRecordMake(nil);
end;

begin
end.