Einmaliges Casten einer Vererbung?

[Mavarik]

Hallo Zusammen!

Gegeben sein eine Klasse

Delphi-Quellcode:

type 
   TMyRoot = Class
   end;

   TFoo = class(TMyRoot)
     private
        Fb : boolean; 
     Public 
        Property nichtInRoot : Boolean read Fb write Fb;
   end;

   TBaa = class
     Private
       FAkt : TMyRoot;
     public
       Property Akt : TMyRoot : read FAkt write FAkt;
   end;

An jeder Stelle wo ich also auf "nichtInRoot" zugreifen will muss ich also schreiben:

if TFoo(Baa.Akt).nichtInRoot then Gibt es nicht eine Möglichkeit nach dem Motto:

Delphi-Quellcode:

Baa.AktType := TFoo;
if Baa.ConvertedAkt.nichtInRoot then

schreiben zu können?

Oder:

Ich müsste doch "eigentlich" nur dem TMyRoot den aktuellen typen mitteilen, oder?

Delphi-Quellcode:

Procedure Notify(Sender : TMyRoot);
begin
  if Sender.AktType.nichtInRoot then
end;

Geht das?

Mavarik

[mkinzler]

Oder die Eigenchaft nach oben verlagern.

[Uwe Raabe]

Mir ist der große Zusammenhang nicht nicht klar, aber ich sehe da ein Problem, wenn der Compiler entscheiden muss, welcher Typ denn zur Laufzeit wirklich dahinter steckt. Laut Deklaration der Klasse TBaa ist Akt immer ein TMyRoot, aber nur vielleicht ein TFoo. Wenn das immer ein TFoo ist, dann deklarier das doch einfach so. Wenn das nicht so geht, du aber sicherstellen kannst, daß Akt immer ein TFoo ist, dann schreib dir einen Class-Helper, der dir ein Property AktFoo: TFoo bereitstellt und das Casting von Akt in einem Getter erledigt.

Delphi-Quellcode:

type
  TBaaHelper = class helper for TBaa
  private
    function GetAktFoo: TFoo;
  public
    property AktFoo: TFoo read GetAktFoo;
  end;

function TBaaHelper.GetAktFoo: TFoo;
begin
  result := Akt as TFoo;
end;

Die Verwendung von as statt einem harten Cast hat noch den Charme einer Exception, falls es mal nicht klappt.

[Mavarik]

Zitat von Uwe Raabe:

Delphi-Quellcode:

type
  TBaaHelper = class helper for TBaa
  private
    function GetAktFoo: TFoo;
  public
    property AktFoo: TFoo read GetAktFoo;
  end;

function TBaaHelper.GetAktFoo: TFoo;
begin
  result := Akt as TFoo;
end;

Jo genau... Hätte ich auch drauf kommen können... Im Endeffekt macht der Classhelper genau das was ich mit meinen Cast auch gemacht haben, nur halt Zentral.

Ist auf jeden Fall ne Lösung, Danke

Mavarik