Folgende Konstruktion:
Delphi-Quellcode:
type
TBasis = class(TObject)
Var1 : integer;
Var2 : string;
end;
type
TErbe = class(TBasis)
Var3 : integer;
Var4 : string;
end;
type
TListe = class(TObjectList<TBasis>)
public
procedure SortiereVar1(Wert:integer)
end;
var Erbe:TErbe; Liste:TListe;
Erbe := Liste[0];
Das geht nicht, weil die Liste vom Typ TBasis und nicht TErbe ist. Mit
Erbe := TErbe(Liste[0]);
geht es.