is Operator akzeptiert auch Oberklassen?

[rollstuhlfahrer]

ok, das Ding heißt wirklich .ClassType und funktioniert auch.

Delphi-Quellcode:

program Project1;

{$APPTYPE CONSOLE}

function BoolToStr(B: Boolean): string;
const
  BoolStrs: array [boolean] of String = ('false', 'true');
begin
  Result := BoolStrs[B];
end;

type
  TStammklasse = class(TObject);
  TNachfahr1 = class(TStammklasse);
  TNachfahr2 = class(TStammklasse);

var
  Stammklasse: TStammklasse;
  Nachfahr1: TNachfahr1;
  Nachfahr2: TNachfahr2;

begin
  Stammklasse := TStammklasse.Create;
  Nachfahr1 := TNachfahr1.Create;
  Nachfahr2 := TNachfahr2.Create;


  WriteLn('==========================');
  WriteLn('Stammklasse is TStammklasse: ' + BoolTostr(Stammklasse is TStammklasse));
  WriteLn('Nachfahr1 is TStammklasse: ' + BoolTostr(Nachfahr1 is TStammklasse));
  WriteLn('Nachfahr2 is TStammklasse: ' + BoolTostr(Nachfahr2 is TStammklasse));
  WriteLn('==========================');
  WriteLn('Stammklasse ist TStammklasse: ' + BoolTostr(Stammklasse.ClassType = TStammklasse));
  WriteLn('Nachfahr1 ist TStammklasse: ' + BoolTostr(Nachfahr1.ClassType = TStammklasse));
  WriteLn('Nachfahr2 ist TStammklasse: ' + BoolTostr(Nachfahr2.ClassType = TStammklasse));
  WriteLn('==========================');

  Stammklasse.Free;
  Nachfahr1.Free;
  Nachfahr2.Free;

  ReadLn;
end.

Bernhard