На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Переменная процедурного типа , Как записать в неё существующую функцию/метод.
      Есть метод у формы (или хотя бы просто функция).
      ExpandedWrap disabled
        function TForm1.MyFunction(Command: integer; Param: Pointer): boolean;
        begin
          //...
        end;
      Есть переменная процедурного типа.
      ExpandedWrap disabled
        type
          FTMyFunction = function(Command: integer; Param: Pointer): boolean;
        var
          MyFunctionVar: FTMyFunction;
      Как в переменную MyFunctionVar записать адрес функции/метода MyFunction? :unsure:
        Присвоить. А чтобы можно было присваивать методы класса напиши так
        ExpandedWrap disabled
          type
            FTMyFunction = function(Command: integer; Param: Pointer): boolean of object;
           
            MyFunctionVar := MyFunction;
          О! Пасиба! :D
          Я про "of object" не знал :)
          0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
          0 пользователей:


          Рейтинг@Mail.ru
          [ Script execution time: 0,0226 ]   [ 16 queries used ]   [ Generated: 29.03.24, 07:52 GMT ]