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;

[SProske]

Erstmal Danke an alle für die Vorschläge/Ideen.
Mir persönlich gefällt die Idee von Namenloser, das nur über Methoden zu lösen. So sollte jedem klar sein, wann er auf welche Werte zugreifen kann.
Wird dann im Endeffekt wohl so etwas wie:

Delphi-Quellcode:

  TFoo = class
  strict private
    FHasFixBar: Boolean;
    FBar: Integer;
  public
    function TryGetBar(out Value: Integer): Boolean;
    procedure SetToDynamicBar;
    procedure SetToFixedBar(const Value: Integer);
  end;