FMX.Utils.ValidateInheritance

• Aller au parent : FMX.Utils

Delphi

procedure ValidateInheritance(const AValue: TPersistent; const AClass: TClass; const CanBeNil: Boolean = True);

C++

extern DELPHI_PACKAGE void __fastcall ValidateInheritance(System::Classes::TPersistent* const AValue, const System::TClass AClass, const bool CanBeNil = true);

Propriétés

Type	Visibilité	Source	Unité	Parent
procedure function	public	FMX.Utils.pas FMX.Utils.hpp	FMX.Utils	FMX.Utils

Description

Vérifie qu'une classe est une instance d'une autre classe ou qu'elle hérite d'elle.

Si AValue n'est pas une instance de AClass ou hérite d'elle, ValidateInheritance déclenche une exception EArgumentException.

Si AValue n'est pas nil et que CanBeNil a pour valeur False, ValidateInheritance déclenche une exception EArgumentNilException.

Exceptions

• EArgumentException est déclenchée si AValue ne remplit pas les conditions.
• EArgumentNilException est déclenchée si la valeur de AValue ou de AClass est nil.

Voir aussi

• System.TObject.InheritsFrom
• System.TClass
• System.Classes.TPersistent