Objekt as TKlasse - und nur TKlasse?

[Panthrax]

Hallo.

Ich möchte mit einem Assert sicherstellen, dass ein übergebener Parameter ein Objekt genau einer Klasse ist (und kein Nachfahre).

Wie kann geprüft werden, ob ein Objekt genau eine bestimmte Klasse hat?

Beispiel:

Delphi-Quellcode:

procedure MachWas(const Objekt: TKlasse);
begin
  Assert(Objekt is TKlasse); // TKlasse und nur TKlasse, keine Nachfahrklasse.
  // ...
end;

[squetk]

Dies wäre eine Variante:
Assert(Objekt.ClassNameIs('TMyClass'));

[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]

[Die Muhkuh]

Du hast zwei t zuviel

[Panthrax]

Zitat von NamenLozer:

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.

Zitat von Delphi-Hilfe:

Der Ausdruck
Objekt is Klasse
gibt True zurück, wenn Objekt eine Instanz der angegebenen Klasse oder eines ihrer Nachkommen ist.

Zitat von squetk:

Dies wäre eine Variante:
Assert(Objekt.ClassNameIs('TMyClass'));

Danke!

[mirage228]

Zitat von NamenLozer:

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.

Falsch!

"IS" gibt sehr wohl bei Nachfahren auch true zurück. Du musst ClassType verwenden.

Delphi-Quellcode:

if (DeinObjekt.ClassType = TKlasse) then 
begin
  ..
end;

mfG
mirage228

[Panthrax]

Zitat von mirage228:

Du musst ClassType verwenden.

Zitat von Delphi-Hilfe:

ClassType sollte in Anwendungscode nicht verwendet werden.

Bei "ClassNameIs(...)" steht soetwas nicht, ich hoffe daher, dass ich es problemlos verwenden kann.