TList / Generics vererben

[Martin W]

Hi,

lassen sich Generics "vererben"?

Also vom Typ:

Delphi-Quellcode:

type
  TFarbe = class
  end;

type
  TRot = class(TFarbe)
  end;

type
  TBlau = class(TFarbe)
  end;


procedure CleanColor;
var
  varListRed: TList<TRot>;
  varListBlue: TList<TBlau>;
  varListToEdit: ???
begin
  
  if (...) then
    varListToEdit := varListRed
  else
    varListToEdit := varListBlue;
  
  (...) 

  varListToEdit.DoSomething;  
  varListToEdit.TrimExcess

end;

Geht so etwas?

(Alternativ bräuchte ich nur Standardfunktionen, die alle TList, unabhängig von der Typisierung haben, also z.B. TrimExccess).

Viele Grüße,
Martin