Hallo
Zitat:
Delphi-Quellcode:
function TListe.Add_Knoten(Knoten: TKnoten): TKnoten;
begin
{...}
end;
function TNewListe.Add_Knoten(Knoten: TNewKnoten): TNewKnoten;
begin
Result := TNewKnoten(inherited Add_Knoten(TKnoten(Knoten))); //Löst immer einen Fehler aus
end;
Die Typumwandlung ist falsch ! Ein Downcast von TNewKnoten nach TKnoten ist möglich, Du versuchst hier aber einen Upcast von TKnoten nach TNewKnoten !
Gruß
Daniel