mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-05 14:48:18 +02:00
23 lines
356 B
ObjectPascal
23 lines
356 B
ObjectPascal
{$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.
|