VPF::Динамически вызвать метод класса?

bazzzman

Дата 24.11.2006, 05:46 (ссылка)

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

Загрузка ...

Шустрый

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

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

Есть класс, наследник TPersistent.
Можно ли как-то динамически (в runtime) узнать есть у этого класса метод (по имени) и вызвать его (Delphi 7)?

Что-то вроде:

Код


var MyClassVar: TPersistent;
begin
  ...
  if (method_exists(MyClassVar, 'DinamicMethod'))
    method_call(MyClassVar, 'DinamicMethod');
end;

RTTI позволяет делать такие штуки?

bems

Дата 24.11.2006, 08:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 3400
Регистрация: 5.1.2006

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

для published методов TObject.MethodAddress. Если метода нет, то возвращает nil. Но аргументы надо знать заранее

Код


type TObjMethod=procedure(self:TObject);
var MyClassVar: TObject;method:TObjMethod;
begin
 ...
 method:=MyClassVar.MethodAddress('MethodName');
 if assigned(method) then method(MyClassVar);
end;

Добавлено @ 08:25
в примере подразумевается, что мы заранее знаем - метод объявлен без параметров (один подразумеваемый - self - будет потому что это метод, а не простая процедура)

--------------------

Обижено школьников: 8

bazzzman

Дата 24.11.2006, 11:28 (ссылка)

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

Загрузка ...

Шустрый

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

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

Ага, то что нужно. Спасибо.

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