tests/test/umshlp15a.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19

unit umshlp15a;

{$mode objfpc}

interface

type
  THelperA = class helper for TObject
    function Test: LongInt;
  end;

implementation

function THelperA.Test: LongInt;
begin
  Result := 1;
end;

end.