Objekt as TKlasse - und nur TKlasse?

[Namenloser]

Also AFAIK prüft is genaz das. Wenn man prüfen will, ob ein Objekt ein Nachfahre einer Klasse ist, muss man einen eignen "class of"-Typ deklarieren.

Delphi-Quellcode:

TKlasse = class
end;

TKlassenClass = class of TKlasse;


// Ist Object Nachfahre einer Klasse?
assert (object is tklassenclass);

// Ist Object genau die Klasse?
assert (object is tklasse);

[edit]@Muhkuh: Stimmt [/edit]