blob: aae5cfee5be1d8fefa0c3033601293ff01a81908 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
{$mode objfpc}
{$interfaces corba}
type
MyInterface = interface
end;
generic MyGenInterface<_T> = interface
procedure MyProc(x:_T);
end;
MyGenInterface_Pointer = specialize MyGenInterface<Pointer>;
MyClass = class(MyInterface,MyGenInterface_Pointer)
procedure MyProc(x:Pointer);
end;
procedure MyClass.MyProc(x:Pointer);
begin
end;
begin
end.
|
