3

私がやりたいのは、関数の結果として取得した匿名メソッドを同じ型の変数に割り当てることです。Delphiは、割り当てを行うことができないことについて不平を言っています。明らかに、同じ関数の結果ではなく、「GetListener」関数を割り当てたいDelphiのことです。これに関するどんな助けも非常にありがたいです。 

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;
4

2 に答える 2

12

次の構文を使用します。

  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;
于 2010-05-07T12:59:26.210 に答える
0

これを回避するために私が見つけた唯一の方法は、GetListenerを次のように宣言することです。

procedure GetListener(var a: TPropertyChangedListener);

関数自体ではなく関数の結果をコンパイラに強制的に考慮する構文があるかもしれませんが、何も見つかりませんでした。

于 2010-05-07T12:40:57.073 に答える