[fpc-pascal] How to use generics and meta class?

[silvioprog]

Hello,

I have this structure:

  generic TMyGeneric<T> = class
  end;

  TMyGenericClass = class of TMyGeneric;

  TMyType = class
  end;

  TMyClass1 = specialize TMyGeneric<TMyType>;

  TMyClass2 = class(specialize TMyGeneric<TMyType>)
  end;

...

procedure RegisterItem(AItemClass: TMyGenericClass);
begin
end;

OK, but when I try:

RegisterItem(TMyClass1);

Return:

Incompatible type for arg no. 1: Got "Class Of TMyGeneric$TMyType",
expected "TMyGenericClass".

Or:

RegisterItem(TMyClass2);

Return:

Incompatible type for arg no. 1: Got "Class Of TMyClass2", expected
"TMyGenericClass"

So, which syntax to use generic and meta class?

Thank you!

-- 
Silvio Clécio
My public projects - github.com/silvioprog

_______________________________________________
fpc-pascal maillist  -  fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/cgi-bin/mailman/listinfo/fpc-pascal