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 / webtbs / tw29792.pp
Size: Mime:
unit tw29792;

{$mode delphi}

interface

type
  { TMyRecord }

  TMyRecord<T> = record
    class operator Add(A,B: TMyRecord<T>): TMyRecord<T>;
  end;

implementation

{ TMyRecord }

class operator TMyRecord<T>.Add(A, B: TMyRecord<T>): TMyRecord<T>;
begin
  // add implementation
end;

procedure TestIfCompiles;
type
  TInteger = TMyRecord<Integer>;
var
  N1, N2, N3: TInteger;
begin
  N1 := N2 + N3;
end;

end.