InheritsFrom (Instance)

function InheritsFrom(const iClassName:string):boolean;

Cette fonction teste si un objet appartient à la hiérarchie d'une classe métier.

Result	True si l'objet hérite de la classe
iClassName	Un nom de classe métier

Exemple

{Function GetEstEntree(aProduitCommercial:TProduitCommercial):Boolean;}
begin
  Result := Assigned(aProduitCommercial) and aProduitCommercial.InheritsFrom('TProduitAchat');
end;

Voir aussi

— Objets métiers (tech) — Développement DSM —