VPF::Как создать прототип функции или процедуры

jsa

Дата 6.11.2006, 18:38 (ссылка)

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

Загрузка ...

Опытный

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

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

Hi All!

хочу сделать прототип функции, типа:

Код


type
  TMyFunction = function: Integer;
  ...
  MyFunc: TMyFunction; 
  ...
  MyFunc:=...; // что здесь должно быть и как реализвать это?

киньте плз простой примерчик smile

ЗЫЖ может я не теми терминами изъясняюсь, как это правильно называтеся?

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

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

Bose

Дата 6.11.2006, 18:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

В дельфи это названо procedural types. Именно на них построены все механизмы обработки событий в компонентах.

Код


type
  TMyFunction = function: Integer;
  ...
  MyFunc: TMyFunction; 
  ...
  MyFunc:=...; // что здесь должно быть и как реализвать это?

объявляем тип:

Код


type
  TMyFunction = function: Integer;

объявляем переменную процедурного типа:

Код


var
  MyFunc: TMyFunction;

Дальше объявляем саму процедуру, которую будем присваивать переменной.

Код


  function MyFunctionHandler:integer;
  begin
     result:=-1;
  end;

Теперь присваиваем переменной MyFunc процедуру MyFuncHandler.

Код


  MyFunc:=MyFunctionHandler;

Этот пример совершенно надуманный. Подобная функциональность полезна, когда сам текст функции будет находиться в плагине/другом модуле/другом классе. А также для реализации делегирования. И ещё для реализации CallBack функций.

Также рекомендую почитать по теме статьи о плагинах(DLL) в DRKB и посмотреть исходники компонентов с событиями. smile

Это сообщение отредактировал(а) Bose - 6.11.2006, 19:04

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

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

jsa

Дата 6.11.2006, 18:55 (ссылка)

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

Загрузка ...

Опытный

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

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

пробавал нечто подобное
не заработала строка:

Код


  MyFunc:=MyFunctionHandler;

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

Bose

Дата 6.11.2006, 19:02 (ссылка)

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

Загрузка ...

Эксперт

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

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

Цитата(jsa @ 6.11.2006, 18:55

)

пробавал нечто подобноене заработала строка:

какие симптомы?

вот пример из хэлпа:

Код


var

  F: function(X: Integer): Integer;
  I: Integer;
function SomeFunction(X: Integer): Integer;
 ...
F := SomeFunction;  // assign SomeFunction to F
I := F(4);          // call function; assign result to I

Смотри Дельфи хелп по ключевой фразе: Procedural types

Добавлено @ 19:04
недоглядел в коде.

объявляем переменную процедурного типа:

Код

 
var
  MyFunc: TMyFunction;

MyFunc надо объявить как ПЕРЕМЕННУЮ

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

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

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