Feld nur über Property zugreifen

[bcvs]

Ich würde vielleicht sowas machen:

Delphi-Quellcode:

type
 TTest = class
  private
    fMyStrictprivateIDWithSecretName : Integer;
    function GetID:Integer;
    procedure SetID(value: integer);
    procedure doWork;
  public
    property ID:Integer read GetID write SetID;
  end;


implementation

{ TTest }

function TTest.GetID: Integer;
begin
  result := fMyStrictprivateIDWithSecretName;
end;

procedure TTest.SetID(value: integer);
begin
  if value < 0
  then fMyStrictprivateIDWithSecretName := 0
  else fMyStrictprivateIDWithSecretName := value;
end;

Und im weiteren Verlauf dann vergessen, dass es dieses fMyStrictprivateIDWithSecretName gibt. Erhöht die angesprochene Selbstdiszpilin.