Prüfen ob Klasse sich von spezieller Klasse ableitet

[Blamaster]

Hi,

lässt sich prüfen ob ein Objekt einer Unterklasse angehört ?

Folgende Struktur:

Klasse A <- Klasse B <- Klasse C <- Klasse D

Ich möchte nun prüfen ob ein Objekt einer beliebigen Unterklasse von der Klasse B angehört.

Gibt es dafür eine einfache Möglichkeit ?

[Sir Rufo]

if MyInstance is TMyClass then

[Meflin]

Zitat von Sir Rufo:

if MyInstance is TMyClass then

Abhängig davon ob der is-Operator Subklassen matcht oder nicht (was ich nicht weiß), kannst du damit aber entweder nicht abdecken, dass es beliebige Subklassen sein sollen, oder aber den Fall nicht abdecken, dass es nicht die Root-Klasse sein soll.

[himitsu]

IS Prüft auch abgeleitete Klassen.

IS = unterstüzt das Objekt die Schnittstelllen der gewünschten Klasse?
aka
IS = entspricht das Objekt diesem Typ oder ist es davon abgeleitet?




if MyObject.ClassTyp = TMyType then oder if MyObject.ClassNameIs('TMyType') then prüft, ob es genau dem Typen entspricht.
Wobei Letzteres nur auf den Namen prüft, es kann aber sein, daß mehrere Typen gleich heißen.

[Uwe Raabe]

Alternativ:

MyInstance.InheritsFrom(TMyClass) Im Unterschied zu is kann man bei InheritsFrom auch eine Klassenvariable (class of) übergeben.

Also InheritsFrom(ClassB) würde bei Instanzen von ClassB, ClassC und ClassD true geben, aber z.B. bei ClassA false zurückliefern. Willst du direkt auf eine Klasse abfragen, kannst du ClassType verwenden:

Delphi-Quellcode:

type
  TClassA = class
  end;

  TClassB = class(TClassA)
  end;

  TClassC = class(TClassB)
  end;

  TClassD = class(TClassD)
  end;

var
  MyInstance: TClassA;

begin
  if MyInstance.InheritsFrom(TClassB) and (MyInstance.ClassType <> TClassB) then
    ... // ist ClassC oder ClassD oder sonst eine Klasse, die von ClassB abgeleitet wurde
end;

[Blamaster]

Subklassen inklusive der Rootklasse reicht mir und das funktioniert auch

Super vielen Dank wusste garnicht das der is Operator Vererbung berücksichtigt.