匿名方法投射爲指針

Question

任何人都可以解釋爲什麼下面的代碼失敗？

type TIDEThemeObserverFunc = reference to procedure(foo: integer); 
var fObserverFuncs: TList<TIDEThemeObserverFunc> 

function RegisterEventObserver(aObserverFunc: TIDEThemeObserverFunc): Pointer; 
begin 
    fObserverFuncs.Add(aObserverFunc); 
    Result := @aObserverFunc; 

    // line below somehow fails 
    assert(fObserverFuncs.IndexOf(TIDEThemeObserverFunc(Result)) <> -1); 
end; 

我認爲匿名方法可以簡單地通過指針流傳和使用，但這似乎是一個錯誤的假設。另外，任何解釋如何在匿名方法下實現匿名方法的資源都會很好。 TIA。

Answer 1

您應該使用PPointer（@aObserverFunc）^而不是@aObserverFunc來避免失敗的斷言。

@gabr：謝謝你的參考我的博客，但我應該首先推薦閱讀the Stackoverflow user Barry Kelly博客作爲一個更有能力的信息來源。

Answer 2

匿名方法實際上是接口（更正確 - 實現接口的對象）。

在這裏閱讀更多：Anonymous methods in Delphi: the internals（由Stackoverflow用戶Serg撰寫）。