Hallo Chris,
man sollte auf
ClassType verzichten, wenn es möglich und sinnvoll ist, z.B. bei einer Typabfrage durch den Operator
is. In Dominiks Code könnte man ClassType prinzipiell auch durch eine IF-Konstruktion ersetzen:
Delphi-Quellcode:
if Self
is TSmallClass
then
NewBigClass := TSmallClass.Create
else
if Self
is TBigClass
then
NewBigClass := TBigClass.Create
else
raise Exception.Create('
nicht vorgesehen');
Man sieht aber sehr deutlich, wie fehleranfällig eine solche Vorgehensweise ist. Die Reihenfolge der Abfragen ist wichtig (jede TSmallClass ist auch eine TBigClass) - ein Vertauschen der beiden Abfragen mit 'is' liefert nicht mehr das gewünschte Resultat. Zudem muß die Anweisung für jede hinzugenommene Klasse erweitert werden. Die (nicht verbotene) Verwendung von
ClassType löst das Problem sehr elegant mit einer Zeile Code.
Gruß Hawkeye