Endlosschleife bei Property

[mkinzler]

Es fehlt auch das private Feld.
Ist ja klar, das du dir so ne Endlos-Rekursion bastelst.

Delphi-Quellcode:

TTest = class(TObject)
  strict private
    FProperty1: Integer;
    procedure SetProperty1(val : Integer);
    function GetProperty1 : Integer;

  public
    property Property1 : Integer read GetProperty1 write SetProperty1;
  end;


...


function TTest.GetProperty1: Integer;
begin
  result := FProperty1;
end;

procedure TTest.SetProperty1(val : Integer);
begin
  FProperty1 := val;  // SetPropery wird wieder aufgerufen --> Endlosschleife
  FProperty1 := FProperty1 + 1;
end;