Einmaliges Casten einer Vererbung?

[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