Sorting a TList

[Neuromancer]

Hi,

I am trying to sort elements in a TList using the Sort function :

Code: [Select]

function CompareInactiveWorkers(ASquare1, ASquare2 : Pointer) : integer;
begin
Result := TSquare(ASquare2).FUnemployment - TSquare(ASquare1).FUnemployment;
end;
Squares := TList.Create;
Squares.Add(TSquare.Create);
Squares.Sort(@CompareInactiveWorkers);

I get a compilation error :

Code: [Select]

Error: Incompatible type for arg no. 1: Got "<address of function(TAbstractSquare,TAbstractSquare):LongInt;Register>", expected "<procedure variable type of function(Pointer,Pointer):LongInt;Register>"

[Martin_fr]

Do you maybe have an overloaded version of that function (same name, but diff param)?

Otherwise:
- fpc version ?
- $mode (delphi, objfpc,...)?

[bflm]

The error doesn't make sense to me in the supposed by the snippet context. It may help to narrow the problem down to a minimal, but complete example and repost it here.

[Neuromancer]

Do you maybe have an overloaded version of that function (same name, but diff param)?

No

Otherwise:
- fpc version ?
- $mode (delphi, objfpc,...)?

FPC version 2.4.0
{$mode objfpc}

Full source code here : http://www.brilland.org/uploads/ecoprog2.zip

[theo]

Do you maybe have an overloaded version of that function (same name, but diff param)?

No

Why do you say no? economy.pas around line 157:

Code: [Select]

function CompareInactiveWorkers(ASquare1, ASquare2 : TAbstractSquare) : integer;
begin
    Result := 0;
end;

function CompareInactiveWorkers(ASquare1, ASquare2 : Pointer) : integer;
begin
    Result := TSquare(ASquare2).FUnemployment - TSquare(ASquare1).FUnemployment;
end;




[Neuromancer]

It works nows. Thanks.