TListSortCompare question...

[syrianska]

Hi,

I'm trying to sort two objects with the TListSortCompare function, but I can't make the function work, and the help files are not helping. I want to sort a TList comparing the score two objects have. Anybody who can give me a pointer??

typedef int __fastcall (*TListSortCompare)(void * Item1, void * Item2);

Thanks / J

 

[MartijnTonies]

This is a Delphi/CB question, not an InterBase one...

But, you should have a function like this (Delphi):

function MyCompare(Item1, Item2: Pointer): Integer;
var MyObject1, MyObject2: TMyObject;
begin
MyObject1 := TMyObject1(Item1);
MyObject2 := TMyObject1(Item2);
if MyObject1.Score > MyObject2.Score
then Result := 1
else if MyObject1.Score < MyObject2.Score
then Result := -1
else Result := 0; // equal
end;

Martijn Tonies
Database Workbench - the developer tool for InterBase and Firebird

http://www.upscene.com