fpcsrc/tests/test/ugeneric14.pp


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27

unit ugeneric14;

{$mode objfpc}

interface

type
  generic TGTest<T> = class
  public
    data: T;
    procedure DoSomething;
  end;

implementation

function Foo: Integer;
begin
  writeln('foo');
  Result := 1;
end;

procedure TGTest.DoSomething;
begin
  data := Foo;
end;

end.