Bonjour,

J'aimerais trier une TList en utilisant la fonction Sort. Mon code est le suivant :

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
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);
J'obtiens une erreur de compilation :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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>"