Delphi-PRAXiS
Seite 2 von 2     12   

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   is Operator akzeptiert auch Oberklassen? (https://www.delphipraxis.net/154116-operator-akzeptiert-auch-oberklassen.html)

rollstuhlfahrer 28. Aug 2010 18:05

AW: is Operator akzeptiert auch Oberklassen?
 
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

sx2008 29. Aug 2010 09:34

AW: is Operator akzeptiert auch Oberklassen?
 
Ich glaube mich dunkel erinnern zu können, dass es ein Unterschied ist ob man schreibt
Delphi-Quellcode:
TKind = class(TMutter); // Das ist ein Alias

oder man schreibt:
Delphi-Quellcode:
TKind = class(TMutter) // Das ist eine Ableitung
end;


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:17 Uhr.
Seite 2 von 2     12   

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz