delphi – 在Win64上对旧的Contnrs.TObjectList进行排序[复制]

参见英文答案 > Why cannot take address to a nested local function in 64 bit Delphi?????????????????????????????????????1个
我们有一些使用Contnrs.TObjectList的旧类,在某些情况下,自定义比较函数用于对这些列表进行排序,使用如下所示：

procedure TMyClass.SortItems;

  function CompareFunction(Item1,Item2: Pointer): Integer;
  begin
    Result := TSomeItem(Item1).Value - TSomeItem(Item2).Value;
  end;

begin
  Sort(@CompareFunction);
end;

在为Win32编译时,此代码没有问题,但是当我们为Win64编译它时,我们发现排序不再起作用.

我已经使用Generics.Collections.TObjectList< T>修复了其中一些.相反,并修改CompareFunction及其调用方式.所以我的猜测是它与调用CompareFunction的方式有关,方法是在它前面添加@运算符,据我所知,它指的是函数的地址.

为什么上面的代码不适用于Win64,以及解决它的正确方法是什么？

function CompareFunction(Item1,Item2: Pointer): Integer;
begin
  Result := TSomeItem(Item1).Value - TSomeItem(Item2).Value;
end; 

procedure TMyClass.SortItems;
begin
  Sort(@CompareFunction);
end;