Casten ist garnicht nötig. (siehe jeweils die ersten zwei Zeilen, ab/inkl. dem Create)
Ist wie beim TStringList.
Man kann hier überall TStrings für seine Variablen und Parameter verwenden, ohne dass es Probleme bereitet, falls man nicht auf was Spezielles von TSTringList zugreifen muss.
Wie gesagt, bei solches Arten des Überdeckens muß man dann damit rechnen, dass es gegenüber einem Überschreiben (Override) eventuell ein paar Aussetzer geben kann, wenn nicht der "genaue" Typ verwendet wird.
Muß man sicher stellen, dass sein Code "immer" ausgeführt wird, denn geht kein Weg um OVERRITE drumrum,
oder man baut z.B. Fallstricke für den Compiler ein, indem man die
OOP missachtet (etwas versteckt was mal sichtbar war)
und seine Funktion unter einem anderen Namen veröffentlicht, damit es knallt, wenn jemand den falschen Typen benutzt.
Delphi-Quellcode:
type
TMyClass = class(TSomeSystemClass)
private
Function GetSomeVal() : Boolean;
Procedure SetSomeVal(const Value : Boolean);
protected
SomeVal; // hier wird der Compiler sich zurecht beschweren, aber diese "Warnung" kann man ignorieren oder deaktivieren.
public
SomeVal2 : Boolean read GetSomeVal write SetSomeVal;
end;
Über den OriginalTyp kann immernoch das alte SomeVal aufgerufen werden, aber ausversehn SomeVal2 über den alten Typ zu benutzen ist nicht möglich, womit man somit darauf hingewiesen wird, dass etwas nicht stimmt.