Klassendesign - wie umgehen mit bedingten Eigenschaften?

[Dejan Vu]

Nenne die Methode doch lieber 'TryGetValue', dann passt das zu 'TryStrToInt' etc.

Ich würde das wirklich als 2 Properties abbilden, genauso, wie Du das gemacht hast. Man kann das auch mit Variants abbilden ('Null' oder 'UnAssigned') wäre dann 'HasFoo=False', aber das hat den Nachteil, das Du hier zwei Aussagen 'Wert ist vorhanden' und 'Wert' kodierst. Das spart vielleicht ein wenig Tipparbeit, aber kodieren von Information ist immer blöd.

Du kannst das natürlich auch über eine generische Klasse, ähnlich dem TNullable<T> abbilden. Letzteres ist mW in Spring4D abgebildet. Es gibt hier im Forum auch Beiträge darüber.

[Namenloser]

Zitat von Dejan Vu:

Nenne die Methode doch lieber 'TryGetValue', dann passt das zu 'TryStrToInt' etc.

Verbesserungsvorschlag akzeptiert.

Zitat von Dejan Vu:

Ich würde das wirklich als 2 Properties abbilden, genauso, wie Du das gemacht hast. Man kann das auch mit Variants abbilden ('Null' oder 'UnAssigned') wäre dann 'HasFoo=False', aber das hat den Nachteil, das Du hier zwei Aussagen 'Wert ist vorhanden' und 'Wert' kodierst. Das spart vielleicht ein wenig Tipparbeit, aber kodieren von Information ist immer blöd.

Bei zwei Properties hat man das Problem, dass jemand eventuell nur die Property "Bar" sieht und gar nicht auf dem Schirm hat, dass es passieren könnte, dass der Wert nicht existiert, und es daher auch nicht prüft. Ich finde, sowas sollte man von vornherein ausschließen, wenn es geht. Ich setze mir immer als Ziel, dass nur legale Methodenaufrufe möglich sein sollen (lässt sich natürlich nicht immer erreichen).

[Dejan Vu]

Hmm... Dann vielleicht eine 'TDynamic<T>' Klasse

Delphi-Quellcode:

Type
  TDynamic<T> = class
  private
     FHasValue : Boolean;
     FValue : T;
  ...
  public 
    property HasValue : Boolean Read FHasValue Write FHasValue;
    property Value : T Read GetValue Write SetValue;
  End;

GetValue knallt, wenn HasValue = False. SetValue setzt HasValue := False;

[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;