TList / Generics vererben

[Dejan Vu]

Geht das nicht in Delphi?

Delphi-Quellcode:

Procedure Foo<T> (A : TList<T:TFarbe>); 
begin
  A.DoSomething;
  A.Bar;
End;
...

if this then Foo<TRot>(varListRed) else Foo<TBlau>(varListBlue);