freepascal.compiler/tests/test/ugeneric10.pp

unit ugeneric10;

{$mode objfpc}

interface

type
   generic TList<_T>=class(TObject)
   type public
     TCompareFunc = function(const Item1, Item2: _T): Integer;
   var public
     data : _T;
     procedure Add(item: _T);
     procedure Sort(compare: TCompareFunc);
   end;

implementation

procedure TList.Add(item: _T);
begin
  data:=item;
end;

procedure TList.Sort(compare: TCompareFunc);
begin
  if compare(data, 20) <= 0 then
    halt(1);
end;

end.