是否有可能在Delphi中對一個回調函數進行類型轉換？

Question

Delphi TList.Sort()方法需要一個類型為function (Item1, Item2: Pointer): Integer;的回調函數參數function (Item1, Item2: Pointer): Integer; 用於比較列表項。

我想在回調函數中擺脫類型轉換，並希望定義一個這樣的回調函數：

function MyTypeListSortCompare( Item1, Item2 : tMyType ) : integer;
begin
   result := WideCompareStr(Item1.Name, Item2.Name);
end;

...
MyList.Sort(tListSortCompare(MyTypeListSortCompare));
...

但不幸的是，這會觸發“無效的類型轉換”編譯器錯誤。

是否有可能在Delphi（2006）中正確地對類型指針進行類型轉換？

Answer 1

我通常做這樣的事情：

function MyTypeListSortCompare( Item1, Item2 : Pointer ) : integer;
var
  LHS: TMyType absolute Item1;
  RHS: TMyType absolute Item2;
begin
  result := WideCompareStr(LHS.Name, RHS.Name);
end;

Answer 2

可以進行類型轉換，但需要在函數名前加上“@”：

var
   MyList : TList;
begin
   ...
   MyList.Sort(TListSortCompare(@MyTypeListSortCompare));
   ...
end;

正如評論中所指出的，當關閉類型檢查指針時不需要類型轉換，因此在這種情況下，這也有效：

MyList.Sort(@MyTypeListSortCompare);