В блоке кода осуществляется чтение значения свойства, доступного только на запись.
Доработайте свойство таким образом, чтобы оно было доступно на чтение. Измените строки кода, в которых осуществляется чтение свойств, доступных только для записи.
Class MyClass: Object
i: Integer;
Public Property Test: Integer
Set
Begin
i := Value;
End Set
End Property Test;
End Class MyClass;
Sub UserProc;
Var
Obj: MyClass;
i: Integer;
Begin
Obj := New MyClass.Create;
i := Obj.Test;
End Sub UserProc;
При компиляции указанного кода на строке «i := Obj.Test;» будет сгенерирована ошибка «Недопустимое использование свойства Test класса MyClass, доступного только для записи». Для разрешения ошибки необходимо в описании свойства добавить спецификатор Get, либо изменить строку, в которой сгенерирована ошибка.
См. также: