Передача Property как Var параметр в функцию

[sdsfy]

Допустим есть некоторое свойство

Property Prop1: Integer Read FProp1 Write Fprop1;

Есть функция

function(var param1: integer): integer;

при передаче Prop1 как параметр функции, компилятор ругается, что не может передать Константу!!!! как var параметр!

Кто знает, что это может быть?

Вынужденно заводу однотипную переменную, в нее пишу значение Prop1, передаю в функцию, читаю из нее ответ обратно в Prop1.

[Serge_Bliznykov]

ну, дык, правильно ругается. Ведь фактически Prop1 сводится к чтению FProp1 (если нужно значение Prop1) и изменением FProp2 (если идёт изменение Prop1).
И Вы абсолютно правильно нашли выход из ситуации (в общем случае!)
Но, разумеется, могут быть и другие варианты. Но они зависят от того, что вы делаете и зачем изменяете параметр в функции.

По хорошему, если функция должна изменить параметер, то это должна быть не функция, а метод класса. А ему FProp1 доступна по определению!

"по плохому", можно сделать публичной Fprop1 и передавать именно эту переменную в функцию (так делать категорически не рекомендую! Пишу только в рамках ознакомления)

ну и ещё вариант. можно передавать в функцию целиком объект, тогда внутри функции будет возможно изменять Prop1:

function(var obj1: MyTObj): integer;
....
  obj1.Prop1 := xxxxxx
....

p.s. но не вижу ничего плохого в том способе с добавочной переменной, который Вы "вынужденно" используете.

[sdsfy]

Спасибо!

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

Но, разумеется, могут быть и другие варианты. Но они зависят от того, что вы делаете и зачем изменяете параметр в функции.

Передается в COM объект. Публичной не сделать. В принципе, можно конечно отказаться от Property и делать все на переменных класса. Я просто наивно полагал, что Проперти можно воспринимать как переименованную переменную. Естественно в случае, когда она не читается и/или не пишется функциями.

[chertovich]

Property Prop1: Integer Read FProp1 Write Fprop1;
...
var
  P: Integer;
begin
  P := Prop1;
  FunName(P);

function FunName(var param1: integer): integer;

[GunSmoker]

Свойство <> поле. Оно его имитирует, но им не является.

[mss]

Публичной не сделать

Почему ? Что мешает ?

[sdsfy]

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

Почему ? Что мешает ?

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

Хотя, опять таки, возможно мы немного друг друга недопонимаем... в принципе, можно уйти от свойств к переменной. ее и передавать напрямую... тогда, вместо публичного свойства, будет публичная переменная...

[mss]

COM сервер не видит контекста вызывающего объекта

А он ему нужен ?
Не нужкн.
Все что ему нужно - ссылка на объект и инф-ция об имени св-ва, к которому ему следует обратиться.

Прямой путь к реализации IDispatch

[sdsfy]

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

Прямой путь к реализации IDispatch

Так далеко фантазировать, когда стоит вопрос, как передать простой Int параметр? Думаю, решения должны быть целесообразными

[mss]

решения должны быть целесообразными

Чтобы они были целесообразными, следует внятно пояснить что мешает передать параметром непосредственно поле FProp1, на которое по read/write у тебя в классе ссылается св-во Prop1