Auf den Typ der aufrufenden Instanz reagieren

[Hawkeye219]

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