Delphi-Quellcode:
function TSortListColumns.Add: TSortListColumn;
var
x: TListColumn;
y: TSortListColumn;
begin
x := inherited Add; // NACH DIESEM PUNKT IST MIT F7 DIE PROZEDUR ZUENDE!
// DER DEBUGGER GEHT NICHT IN DIE TIEFE
y := TSortListColumn(x); // DIESER PUNKT WIRD NIEMALS ERREICHT
Result := y; // DIESER PUNKT WIRD NIEMALS ERREICHT
//Result := TSortListColumn(inherited Add);
end;
Das kann doch nicht sein. Das Vererbungsmodell von Delphi funktioniert hier einfach nicht! Die Methode "Add" ist nicht als virtuell definiert, so dass man sie nicht mit override überschreiben kann.