VPF::Variant to TObject - Форум программистов

_Dimon_

Дата 22.2.2011, 12:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 25.6.2007
Где: Украина

Репутация: 1
Всего: 1

С документации фастрепорт:

Поскольку все параметры представляются как массив типа Variant, вам надо
преобразовать их в объекты.

Код


fsScript1.AddMethod('procedure HideButton(Button: TButton)', 
CallMethod); 
{ обработчик }
function TForm1.CallMethod(Instance: TObject; ClassType: TClass; const 
MethodName: String; 
  var Params: Variant): Variant; 
begin 
  TButton(Integer(Params[0])).Hide;  {КАК ЭТО НАПИСАТЬ НА СИ}
end;

Вопрос не в фастрепорте, а в том, как привести Variant к TObject, TWinControl ... и т.д. и т.п.

_Dimon_

Дата 22.2.2011, 18:26 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 243
Регистрация: 25.6.2007
Где: Украина

Репутация: 1
Всего: 1

Вопрос решен

Код


TButton* button = ((TButton*) &(Params.GetElement(0)));

//или как в примере
((TButton*) &(Params.GetElement(0)))->Hide();

Это сообщение отредактировал(а) _Dimon_ - 22.2.2011, 18:30

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »