Анонимный метод как результат функции - PullRequest
Новая
       30

Анонимный метод как результат функции

3 голосов
/ 07 мая 2010

Что я хочу сделать, это назначить анонимный метод, который я получаю как результат функции, переменной того же типа. Delphi жалуется, что не может выполнить задание. Очевидно, что в Delphi я хочу назначить функцию «GetListener» вместо результата той же функции. Любая помощь с этим очень ценится. 

type
      TPropertyChangedListener = reference to procedure (Sender: TStimulus);

      TMyClass = class
        function GetListener:TPropertyChangedListener
      end;


    ....

    var MyClass: TMyClass;
        Listener: TPropertyChangedListener;
    begin
      MyClass:= TMyClass.create;
      Listener:= MyClass.GetListener;   //  Delphi compile error: E2010 Incompatible types:  TPropertyChangedListener' and 'Procedure of object' 

    end;

Ответы [ 2 ]

12 голосов
/ 07 мая 2010

Используйте следующий синтаксис: 

  Listener:= MyClass.GetListener();

Я написал следующий пример, чтобы прояснить разницу между назначениями MyClass.GetListener () и MyClass.GetListener: 

type
  TProcRef = reference to procedure(Sender: TObject);
  TFunc = function: TProcRef of object;

  TMyClass = class
    function GetListener: TProcRef;
  end;

function TMyClass.GetListener: TProcRef;
begin
  Result:= procedure(Sender: TObject)
  begin
    Sender.Free;
  end;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  MyClass: TMyClass;
  ProcRef: TProcRef;
  Func: TFunc;

begin
  MyClass:= TMyClass.Create;
// standard syntax
  ProcRef:= MyClass.GetListener();

// also possible syntax
//  Func:= MyClass.GetListener;
//  ProcRef:= Func();

  ProcRef(MyClass);
end;
0 голосов
/ 07 мая 2010

Единственный способ обойти это - объявить ваш GetListener следующим образом: 

procedure GetListener(var a: TPropertyChangedListener);

Возможно, существует некоторый синтаксис, заставляющий компилятор учитывать результат функции, а не саму функцию, но я не смог ее найти.

...