tests/test/tgeneric19.pp


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

{$mode objfpc}
type
  generic tc<T> = class
    procedure p(data : T);
  end;

  tc1 = specialize tc<string>;

procedure tc.p(data : T);
  begin
    readln(data);
    writeln(data);
  end;

begin
end.