is Operator akzeptiert auch Oberklassen?

[idefix2]

Du könntest Zeile.Classname verwenden. damit bekommst Du genau die richtige Klasse.

[xZise]

Zitat von idefix2:

Du könntest Zeile.Classname verwenden. damit bekommst Du genau die richtige Klasse.

Stimmt, aber ich glaube da nehme ich eher sowas wie .Class .ClassType, weil dann meckert der Compiler falls sich der Name ändert und das Refactoring erfasst das mit.

Argh und mir fällt gerade ein, dass ich ja oben mist angegeben habe. Und zwar ist mein Mutter-Kind Beispiel genau das Gegenteil! Und zwar müsste es ja x := TKind.Create; heißen (aber das scheint euch ja auch nicht aufgefallen zu sein ).

MfG
Fabian

PS: Okay scheint wohl eher .ClassType zu sein

[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