How to inherit from a Generic class

[Martin_fr]

No I havent tested any of this, but it may be worth a try.

Instead of inheritance try delegation

instead of (example with finale types)
  type TCircularQueueFoo = class(TQueueFoo);

do
  type TCircularQueueFoo = class(TObject);
    private
      theQueue: TQueueFoo


then of course, you need to have all the methods that TAbstractQueue implemented (at least public ones) and just forward (delegate) them to the "theQueue" object.

and (now I do not know if it works ...) for generics

Code: [Select]

type generic TQueue<A>= ....

type
  generic TCircularQueue<A>= class(TObject)
    private
      type
        TTheQueue = specialize TQueue<A>
      var
         FTheQueue: TTheQueue
       


[Leledumbo]

Hmm...looks like a solution

[Amir61]

But I have some function in my class (TAbstractQueue), how should I define them?

It is clear how to declare the Delete procedure or Size function in TAbstractQueue but I could not find a way to declare Insert function, for example?