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.