![]() |
AW: is Operator akzeptiert auch Oberklassen?
ok, das Ding heißt wirklich .ClassType und funktioniert auch.
Delphi-Quellcode:
Bernhard
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. |
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 01:47 Uhr. |
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