不兼容的类型：Delphi XE4中的“ PPointerList”和“ TPointerList”

Question

我收到错误Incompatible types: 'PPointerList' and 'TPointerList'以下函数中为Incompatible types: 'PPointerList' and 'TPointerList' 。

function MyFunction: PPointerList;
begin
  result := FList.List;
end;

FList.List返回TPointerList类型。 该代码在Delphi 7代码中工作正常，但在Delphi XE4中引发错误。

PPointerList和TPointerList在System.Classes中声明

在System.Classes中

PPointerList = ^TPointerList;
TPointerList = array of Pointer;

当我将TPointerList广播到PPointerList时，它的工作方式就像

function MyFunction: PPointerList;
begin
  result := PPointerList(FList.List);
end;

是正确的解决方案，还是该怎么做才能消除此错误。

Answer 1

TList已更改。 内部字段FList曾经是PPointerList但现在是TPointerList 。 要返回指向它的指针，可以使用以下命令：

function MyFunction: PPointerList;
begin
  Result := @FList.List;
end;