Delphi 7 and FPC compatibility

[rs0xFFFF]

Please add

{$IF CompilerVersion <= 15} //Delphi 7
type
  TPointerList = array of Pointer;
  TListSortCompareFunc = function (Item1, Item2: Pointer): Integer;
{$IFEND}

to unit Clipper.Core for D7 compatibility. THX!

P.S.
The declaration of TPointerList in Delphi 2007 looks like this:

TPointerList = array[0..MaxListSize - 1] of Pointer;

while the one in Delphi 10.2 is this:

TPointerList = array of Pointer;

[rs0xFFFF]

Sorry, we have to dig deeper... That must be right above the class.

{$ifdef FPC}
  TPointerList = array of Pointer;
  TListSortCompareFunc = function (Item1, Item2: Pointer): Integer;
{$else}
{$if CompilerVersion < 23} //prior Delphi XE2
  TPointerList = array of Pointer;
  TListSortCompareFunc = function (Item1, Item2: Pointer): Integer;
{$ifend}
{$endif}

  TListEx = class
  private

[AngusJohnson]

Hopefully finally fixed now 🤞🙏.

[rs0xFFFF]

Everything runs like clockwork again. Thanks!