Unit: Internal

Available In: Client and Server Applications

function InheritsFrom(AChildClass: TClass; AClass: TClass): Boolean;

function InheritsFrom(AObject: TObject; AClass: TClass): Boolean;

The InheritsFrom function returns True if the class or class instance input parameter is a descendant class of the specified class, or False if not.

Examples

var
   MyEdit: TEdit;
begin
   X := InheritsFrom(TServerRequest,TControl);  // X is False
   MyEdit := TEdit.Create(MyForm);
   X := InheritsFrom(MyEdit,TControl);  // X is True
end