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:

Delphi-Quellcode:

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 :stupid: [/edit]

[Die Muhkuh]

Du hast zwei t zuviel :P

[Panthrax]

Zitat:

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:

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:

Zitat von squetk

Dies wäre eine Variante:

Delphi-Quellcode:

Assert(Objekt.ClassNameIs('TMyClass'));

Danke!

[mirage228]

Zitat:

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:

Zitat von mirage228

Du musst ClassType verwenden.

Zitat:

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.