傳遞函數而不是調用它（德爾福）

Question

所以我有一個形式，德爾福

TFrmMainForm = class(TForm, IFrmMainFormInterface) 
    public 
    procedure Display(Sender:TObject); 
end; 

的接口是

IFrmMainFormInterface = interface 
    procedure Display(Sender:TObject); 
end; 

而另一個類

TMainFormViewModel = class 
    strict private 
     fTimer : TTimer; 
     function GetOnTimer : TNotifyEvent; 
     procedure SetOnTimer(timerEvent : TNotifyEvent); 
    public 
     property OnTimer : TNotifyEvent read GetOnTimer write SetOnTimer; 
end; 

implementation 

function TMainFormViewModel.GetOnTimer : TNotifyEvent; 
begin 
    Result := fTimer.OnTimer; 
end; 

procedure TMainFormViewModel.SetOnTimer(timerEvent : TNotifyEvent); 
begin 
    fTimer.OnTimer := timerEvent; 
end; 

我有一個表單MainForm和視圖模型類的實例MainFormViewModel

，我想嘗試

MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display 

問題是這樣給我一個錯誤消息

沒有足夠的實際參數

我相信這是因爲德爾福試圖調用顯示函數而不是將其分配給OnTimer事件。我不知道如何解決這個問題，我試過使用@運營商沒有成功。

編輯

我要補充的是，MainForm的聲明在此功能

procedure Initialise<T:Class, IFrmMainFormInterface>(MainForm : T); 

---

procedure TController.Initialise<T>(MainForm : T); 
begin 
    MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display ; 
end; 

Answer 1

MainFormViewModel.OnTimer := IFrmMainFormInterface(MainForm).Display; 

的問題是，你不能使用的方法界面在這方面。 OnTimer事件是一個of object方法類型。它必須是一個對象或記錄的方法。

Answer 2

我認爲MainFormViewModel.OnTimer := MainForm.Display應該工作。無論如何，爲什麼要將實例轉換爲接口？

Answer 3

問題是接口方法引用與對象方法引用不兼容。

但不是直接將某個引用傳遞給某個接口實現上的某個方法，而只是傳遞接口引用本身。在圍欄的另一邊，不是保持對要調用的特定方法的引用，而是保持對實現該方法的接口的引用。

然後您只需在適當的時間調用目標方法。

事實上，這是您這樣做，在引用計數的環境，因爲參考了具體的方法在接口上無助於接口本身的引用計數....如果你來着至關重要只保留對某種方法的引用，然後在代碼嘗試調用該方法時，實現對象可能已被銷燬（因爲您沒有保留對它的任何引用）。

如果需要參考一些對象實現接口，那麼任何方面 - 在參考計數上下文 - 你必須保持到該接口的引用。

另外，但我會建議關注的分離。即分離，您的形式迴應了其能力的計時器事件所顯示的事實：

IfrmMainFormInterface = interface 
[..guid..] 
    procedure Display; 
end; 


ITimerListener = interface 
[..guid..] 
    procedure OnTimer(Sender: TObject); 
end; 


TMainFormViewModel = class 
    strict private 
     fTimer : TTimer; 
     fOnTimer: ITimerListener; 
     procedure DoOnTimer(Sender: TObject); // internal event handler for fTimer.OnTimer 
    public 
     property OnTimer: ITimerListener read fOnTimer write fOnTimer; // no need for getter/setter anymore 
end; 


procedure TMainFormViewModel.DoOnTimer(Sender: TObject); 
begin 
    // Enabling/disabling the timer might not be needed/or appropriate, but if it is 
    // then you can take care of that here, rather than relying on the listener to 
    // do it 

    fTimer.Enabled := FALSE; 
    try 
    if Assigned(fOnTimer) then 
     fOnTimer.OnTimer(self); // call the method on the assigned listener interface 

    finally 
    fTimer.Enabled := TRUE; 
    end; 
end; 



// Meanwhile, Somewhere in your view model initialisation.... 

fTimer.OnTimer := DoOnTimer; 

然後，在你TMainForm實現：

TMainForm = class(TForm, IfrmMainFormInterface, 
         ITimerListener) 
.. 
    procedure Display; 
    procedure OnTimer(Sender: TObject); 
.. 
end; 


procedure TMainForm.OnTimer(Sender: TObject); 
begin 
    if Sender is TMainFormViewModel then 
    Display; 
end; 

你「重視」的觀點通過直接分配主窗體本身（這將導致傳遞正確類型的接口引用）來使用接口類型屬性的模型計時器：

ViewModel.OnTimer := frmMain; 

您可能已經注意到，在上面的例子中，視圖模型通過「自我」爲發件人的的OnTimer調用偵聽器接口的，而不是通過原始計時器對象。這是爲了演示如何聽衆可能使用類型的發件人（可能）區分它可能正在偵聽的多個定時器源。

有很多方法可以解決這個問題，如果它出現了，其中只有一個。

另一種方法是利用現在爲此具有特定接口偵聽器方法的事實，這與以下事件方法類型的具體實現（TNotifyEvent）分開。因此，您可以根據需要向您的計時器偵聽器接口方法引入所需的其他任何參數。例如如果您的視圖模型有多個計時器，然後您ITimerListener接口可以承包一個定時器ID除了傳遞（或代替）發送，例如：

ITimerListener = interface 
[..guid..] 
    procedure OnTimer(Sender: TObject; aTimerID: Integer); 
end;