Ändern der Klassenhierarchie

[maximov]

Zitat von Robert_G:

...
Der IS Operator kann ja auch nicht wissen was du da zur Laufzeit machst.

wieso nicht ? Der Is-operator ist doch der laufzeit-klassenprüf-operator.

Delphi-Quellcode:

function _IsClass(Child: TObject; Parent: TClass): Boolean;
begin
  Result := (Child <> nil) and Child.InheritsFrom(Parent);
end;