Feld nur über Property zugreifen

[Kostas]

Hallo Zusammen,

ist es möglich ein Feld innerhalb der Klasse zu sperren so dass man nur über das Property darauf zugreifen kann?

Delphi-Quellcode:

unit Tester;

interface

uses Winapi.Windows;

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


implementation

{ TTest }

procedure TTest.doWork;
begin
  fID := -10;  //<<< Wie kann den Zugriff auf das Feld innerhalb der
              //     Klasse verhindern so dass ich über das Property gehen muss.
  ID := -10;

end;

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

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

end.