익명 메서드를 함수 결과로 사용합니다.

Question

내가 원하는 것은 익명 메서드를 함수 결과로 동일한 형식의 변수에 할당하는 것입니다. 델파이는 배정을 할 수 없다고 불평합니다. 분명히 그 같은 기능의 결과 대신 "GetListener"함수를 할당하려는 델파이 것들. 이것에 대한 도움은 매우 감사합니다. 의 대신

이

procedure GetListener(var a: TPropertyChangedListener); 

함수의 결과를 고려하도록 컴파일러에 강제로 어떤 구문이있을 수 있습니다 :

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; 

Answer 1

다음 구문을 사용 : 음

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; 

Answer 2

나는이 문제를 해결하기 위해 찾은 유일한 방법은 다음과 같이 당신의 GetListener를 선언하는 것입니다 기능 자체는 찾지 못했습니다.