SetPropValue(, , TObject)

NeedleLeedle
Дата: 24.05.2011 09:56:04
Можно ли использовать SetPropValue с третьим параметром типа TObject? Если да - то как?
Спасибо
RENaissance
Дата: 24.05.2011 10:06:25
TObject - есть адрес памяти, т.е. целое число.
NeedleLeedle
Дата: 24.05.2011 10:21:52
RENaissance, как же тогда использовать?
[DCC Error] Main.pas(48): E2250 There is no overloaded version of 'SetPropValue' that can be called with these arguments
RENaissance
Дата: 24.05.2011 10:25:15
Где код?
NeedleLeedle
Дата: 24.05.2011 10:32:33
RENaissance, допустим, необходимо присвоить свойство DataSource у DevExpress-овского компонента TcxDBTextEdit

SetPropValue(cxDBTextEdit1, 'DataSource', DataSource1);
[DCC Error] Main.pas(48): E2250 There is no overloaded version of 'SetPropValue' that can be called with these arguments
RENaissance
Дата: 24.05.2011 10:41:06
Посмотрел исходник SetPropValue - увы, для TObject не получится.
NeedleLeedle
Дата: 24.05.2011 10:54:05
RENaissance, спасибо за ответы. Возможно ли какое-либо решение?

Проблема:
Есть много компонент от DevExpress на форме (TcxDBTextEdit, TcxDBSpinEdit, TcxDBLookupCombobox и прочие).
У каждого есть свойство DataBinding, где и находится DataSource.

Но DataBinding прописан для каждого типа

TcxDBTextEdit = class(TcxCustomTextEdit)
published
property DataBinding: TcxDBTextEditDataBinding read GetDataBinding
      write SetDataBinding;

TcxDBSpinEdit = class(TcxCustomSpinEdit)
property DataBinding: TcxDBTextEditDataBinding read GetDataBinding
      write SetDataBinding;

Мне надо каждому элементу проставить DataSource. Сейчас я делаю что-то типа

if Obj is TcxDBTextEdit then with TcxDBTextEdit (Obj) do DataBinding.DataSource := MySource
else if Obj is TcxDBSpinEdit then...

Как это сделать красиво?
RENaissance
Дата: 24.05.2011 11:00:12
NeedleLeedle, SetObjectProp.
NeedleLeedle
Дата: 24.05.2011 11:09:44
RENaissance
NeedleLeedle, SetObjectProp.

Значит, не дочитал. Спасибо большое. Вопрос закрыт
NeedleLeedle
Дата: 24.05.2011 11:12:51
Спрошу сразу быстро: свойство составное DataBinding.DataSource

При использовании SetObjectProp(Obj, 'DataSource', ...) и SetObjectProp(Obj, 'DataBinding.DataSource', ...)

получаю что такие свойства не найжены