VPF::вызвать фукнцию зная ее имя - Форум программистов

jsa

Дата 26.4.2008, 17:26 (ссылка)

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

Загрузка ...

Опытный

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

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

Hi All!

требуется сабж, возмоно ли такое в delphi, не в смысле обычного кодинга, типа:

Код


...
MyFunction(MyVar);
...

, а в том плане что имя функции храниться в переменной, и вызов это переменной вызывает функцию

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

Все мы, на перине с песней, строим небо на земле © Ю. Шевчук

Poseidon

Дата 26.4.2008, 20:42 (ссылка)

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

Загрузка ...

Delphi developer

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

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

Цитата(jsa @ 26.4.2008, 17:26

)

а в том плане что имя функции храниться в переменной

В текстовой что-ли? smile

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

aktuba

Дата 26.4.2008, 20:50 (ссылка)

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

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Цитата(jsa @ 26.4.2008, 18:26

)

в том плане что имя функции храниться в переменной, и вызов это переменной вызывает функцию

RTTI?

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

jsa

Дата 26.4.2008, 22:03 (ссылка)

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

Загрузка ...

Опытный

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

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

aktuba, а поподробнее, если можно, то желательно ссылочку

Добавлено через 48 секунд
Poseidon, да, типа того

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

Все мы, на перине с песней, строим небо на земле © Ю. Шевчук

aktuba

Дата 27.4.2008, 01:41 (ссылка)

(голосов:3)

Загрузка ...

Смышленный

Профиль
Группа: Завсегдатай
Сообщений: 1915
Регистрация: 24.4.2006
Где: Планета Земля

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

Код


type
  PYourMethod = ^TYourMethod;
  TYourMethod = procedure(S: string) of Object;

procedure TMainForm.Button1Click(Sender: TObject);
begin
  ExecMethodByName('SomeMethod');
end;

procedure TMainForm.ExecMethodByName(AName: string);
var
  PAddr: PYourMethod;
  M: TMethod;
begin
  PAddr := MethodAddress(AName);
  if PAddr <> nil then
  begin
    M.Code := PAddr;
    M.Data := Self;
   TYourMethod(M)('hello');
  end;
end;

procedure TMainForm.SomeMethod(S: string);
begin
 ShowMessage(S);
end;

Из DRKB.

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

jsa

Дата 27.4.2008, 14:51 (ссылка)

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

Загрузка ...

Опытный

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

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

aktuba, это как раз то что нужно, спасибо большое, с меня плюс

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

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