Endlosschleife bei Property

[Helmi]

Hallo,

probiers mal so:

Delphi-Quellcode:

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

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


... 


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

procedure TTest.SetProperty1(val : Integer); 
begin 
  myproperty := val;
  myproperty := myproperty + 1; 
end;

Du willst ja eine interene Variable setzen (setproperty) bzw. abfragen (getproperty) nicht die Property selbst.

Wenn du in deiner komponente weiterarbeiten willst, dann verwende myproperty.