Klassendesign - wie umgehen mit bedingten Eigenschaften?

[Sir Rufo]

Suchst du eventuell so etwas?

Delphi-Quellcode:

type
  TFoo = class
  private const
    FixedBarValue = 42;
  protected
    function GetBar: Integer; virtual;
  public
    property Bar: Integer read GetBar;
  end;

  TSpecialFoo = class( TFoo )
  protected
    function GetBar: Integer; override;
  end;

function TFoo.GetBar: Integer;
begin
  Result := FixedBarValue;
end;

function TSpecialFoo.GetBar: Integer;
begin
  Result := Random( 42 );
end;