Свойство объекта

[fikret123]

В чем проблема?

  TMy = class
    procedure Sett(value: integer);
    function Get: integer;
    property Prop: integer read Get write Sett;
  end;
var
  Form1: TForm1;
  My: TMy;

implementation

{$R *.dfm}
procedure TMy.Sett(value: integer);
begin
  Prop := value; //ПОСТОЯННО ПРИСВАИВАЕТ
end;

function TMy.Get: integer;
begin
  Result := Prop;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  My.Prop := 123; // ТУТ ЗАВИСАЕТ
end;

[Selestis]

У вас объект не создан.

My:=TMy.Create;

напишите это при создании формы

[fikret123]

Сообщение от Selestis

У вас объект не создан.

My:=TMy.Create;

напишите это при создании формы

не помогло

[Selestis]

TMy = class
    fProp: integer;
    procedure Sett(value: integer);
    function Get: integer;
    property Prop: integer read Get write Sett;
  end;

begin
  fProp := value;
end;

function TMy.Get: integer;
begin
  Result := fProp;
end;

У вас как таковой переменной нет, она не объявлена в классе, т.е. вы рекурсивно вызывали одну и ту же функцию, возвращающую значение следующего вызова. Не усмотрел даже сначала.

[fikret123]

всё, спасибо.