VPF::Указатели на методы - Форум программистов

Knuckles

Дата 6.11.2008, 15:38 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 33
Регистрация: 8.3.2006

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

Привет, знатоки.

Есть примерно такой тип:

Код


TMyMethod = procedure(Params: TStrings) of object;

В процедуру передается массив указателей на такие методы (array of TMyMethod).
Подскажите, как их хранить? Нужно выковырять сам адрес кода и указатель на Self, чтобы позже можно было сделать что-то вроде:

Код


MyParams := TStringList.Create();
MethodPtr := ...;
ObjPtr := ...;
MethodPtr^(ObjPtr, MyParams);

CodeMonkey

Дата 6.11.2008, 16:22 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1839
Регистрация: 24.6.2008
Где: Россия, Тверь

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

Преобразование типов к TMethod. У TMethod (это запись) читать Code (это процедура) и Data (это объект).

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

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы.

Bose

Дата 6.11.2008, 16:46 (ссылка)

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

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1458
Регистрация: 5.3.2005
Где: Riga, Latvia

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

Цитата(Knuckles @ 6.11.2008, 15:38

)

Есть примерно такой тип:

Код


TMyMethod = procedure(Params: TStrings) of object;

В процедуру передается массив указателей на такие методы (array of TMyMethod).

Цитата(Knuckles @ 6.11.2008, 15:38

)

Подскажите, как их хранить? Нужно выковырять сам адрес кода и указатель на Self, чтобы позже можно было сделать что-то вроде:

Цитата(CodeMonkey @ 6.11.2008, 16:22

)

Преобразование типов к TMethod. У TMethod (это запись) читать Code (это процедура) и Data (это объект).

не понимаю, зачем такие извращения.

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

Вот пример для обычной переменной

Код


procedure InitMyMethod;
var
  MyMethodVariable:TMyMethod;
  tmpStrings:TStringList;
begin
  MyMethodVariable := MyObjectThatImplementsMyMethod.MyMethod; // где MyObjectThatImplementsMyMethod.MyMethod - это procedure(Params: TStrings)  
  tmpStrings:=TStringList.Create;
  try
     // используем MyMethodVariable
     MyMethodVariable(tmpStrings);
  finally
    tmpStrings.Free;
  end;
end;

С массивом аналогично.

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

Лучшее о Delphi за 2013 год. Подборка ссылок.

Knuckles

Дата 7.11.2008, 07:46 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Awaiting Authorisation
Сообщений: 33
Регистрация: 8.3.2006

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

Цитата(CodeMonkey @ 6.11.2008, 16:22

)

Преобразование типов к TMethod. У TMethod (это запись) читать Code (это процедура) и Data (это объект).

Спасибо. То, что нужно. И ведь смотрел на этот тип, но не догадался smile

Цитата(Bose @ 6.11.2008, 16:46

)

не понимаю, зачем такие извращения.

Дело в том, что я использую библиотеку контейнеров DeCAL, поэтому "просто массива" для хранения нету.

Кстати, временно использовал такое решение: создал класс-обёртку для метода с единственной процедурой Run, в которой он вызывает хранимый метод (передается ему в конструкторе). В контейнер кладу указатель на обёртку.

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