Ganz normale Vererbung halt:
Delphi-Quellcode:
type
TBaseClass = class(TObject)
public
procedure CommonTest;
end;
TClass1 = class(TBaseClass)
public
procedure OnlyForClass1;
end;
TClass2 = class(TBaseClass)
public
procedure OnlyForClass2;
end;
Und die verwaltende Klasse dann entsprechend:
Delphi-Quellcode:
type
TManagerClass<T: TBaseClass> = class(TObject)
public
FList: TObjectList<T>;
end;
Innerhalb des Codes solltest du dann dank des Constraints ohne Probleme auf alle Eigenschaften von TBaseClass zugreifen könne.