Comment puis-je déterminer si un objet Delphi est d'une classe spécifique et non pas un descendant de la classe?

J'ai ces classes et d'une procédure:

 TParent = class(TObject);
 TChild1 = class(TParent);     
 TChild2 = class(TParent);

 Procedure DoSomething(obj:TParent);

Ce que je voudrais faire, c'est quand obj est un TParent et pas un descendant de soulever une exception.

J'ai pensé à faire quelque chose comme ceci:

if obj.classname = TParent.classname then raise exception.create....

mais il semble un peu hackish (TM)

Plus: Ce que j'ai prévu est de pouvoir passer des objets que les propriétés partagées/procédures en commun. Après plus de pensée, la TParent Objet n'est pas vraiment nécessaire, ce dont j'avais besoin était un objet de l'interface indiqué dans ma réponse.

  • Hormis les réponses déjà données, il ya certainement de cas valables que cela, mais pas tant que ça. Pourquoi avez-vous besoin de savoir?
  • +1 pour la pensée que c'était un hack. En règle générale, si vous faites du type de choses avec des chaînes, vous êtes probablement fait quelque chose de mal.
InformationsquelleAutor Christopher Chase | 2011-03-10
  1. 34

    Vous trouverez probablement les suivantes TObject les méthodes de la classe utile:

    • ClassType - retourne la classe d'un objet
    • ClassParent - donne de la classe parente de la classe
    • InheritsFrom - retourne si une classe hérite d'une autre classe (c'est à dire, vérifie l'ensemble de la chaîne d'héritage). Il comprend la classe en cours.

    Ainsi, vous pouvez obtenir ce que vous voulez (descend de TParent mais pas TDescendant?) avec quelque chose comme le code suivant (non testé, n'ont pas de Delphi en ce moment):

    if obj.ClassType.InheritsFrom(TParent)
  and not obj.ClassType.InheritsFrom(TDescendant) then...

    Ou, si j'ai mal compris et que vous voulez juste pour voir si un objet est un TParent, et pas n'importe quelle sorte de descendant à tous, essayez de:

    if obj.ClassType = TParent then...

    Delphes était en avance sur son temps en donnant accès à des cours par metaclasses, alors plutôt que de vérifier simplement le nom de la classe, vous pouvez accéder à une classe réelle de l'objet.

    • En avance sur son temps, peut-être, mais encore en retard en retard Smalltalk!
    • Ouais, j'ai été tenté d'ajouter un Smalltalk commentaire dans ma réponse 🙂
    InformationsquelleAutor David
  2. 12

    Vous êtes sur la bonne voie, mais au lieu de comparer les noms de classe, il serait plus simple de vérifier la ClassType propriété.

    if obj.ClassType = TParent then raise exception.create....
    • Non seulement plus simple, mais aussi correct. Il est possible que les deux classes ont le même nom mais pas la même classe. (Le ClassName fonction n'incluent pas le nom de l'unité, qui serait autrement distinguer comme nommées classes. Pas sûr de ce qu'il fait à propos des classes imbriquées.)
    • Il ne l'évidence: 'TOuter.TInner'.
    • La Documentation dit que le mot-clé est doit être utilisé au lieu de comparer par ClassType.
    • Le est mot clé et en comparant ClassType faire deux choses différentes. La plupart du temps, vous voulez vérifier si un objet est compatible avec l'assignation à une classe spécifique, et est va le faire. Mais dans ce cas particulier, ce n'est pas ce que l'OP est à la recherche pour, et en comparant ClassType est.
    • Vous êtes de droite. Merci pour la clarification.
    InformationsquelleAutor Mason Wheeler
  3. 11

    Bonne pratique de la programmation orientée objet unis que cela ne devrait pas être fait. Ce que vous décrivez est une violation directe de la Principe de substitution de Liskov qui stipule que:

    objets dans un programme devrait être
    remplaçable avec les instances de leur
    sous-types, sans altérer la
    l'exactitude de ce programme

    Je pense que vous devriez expliquer quel est le problème que vous tentez de résoudre, puis une meilleure approche pourrait devenir apparente.

    • Ce fut le coup de pouce dont j'avais besoin,
    InformationsquelleAutor David Heffernan
  4. 3

    Une autre approche: Introduire une méthode abstraite dans TParent, dire CheckValidChild, et de la remplacer dans les classes descendantes. Maintenant, lorsque vous appelez obj.CheckValidChild vous obtenez une EAbstractError si l'instance de l'obj est de classe TParent.

    InformationsquelleAutor Uwe Raabe
  5. 0

    Je pense que ive a résolu ce que j'essayais de faire, Il m'a frappé sur la tête la nuit dernière.

    iParentInterface = interface(IUnknown);
TChild1 = class(TInterfacedObject,iParentInterface);     
TChild2 = class(TInterfacedObject,iParentInterface);   

Procedure DoSomething(obj:iParentInterface);
    InformationsquelleAutor Christopher Chase