Sorry this is wrong:
Result := StrToInt(Item1.SubItems[0]) > StrToInt(Item2.SubItems[0])
It should be:
Result := StrToInt(Item1.SubItems[0]) - StrToInt(Item2.SubItems[0]);
Or arounf the other way. The result doesn't need to be -1,0,1. It can be
any integer value negative, 0, or positive.
Regards,
Ross Levis.
---------------------------------------------------------------------------
New Zealand Delphi Users group - Delphi List - [EMAIL PROTECTED]
Website: http://www.delphi.org.nz
To UnSub, send email to: [EMAIL PROTECTED]
with body of "unsubscribe delphi"
Web Archive at: http://www.mail-archive.com/delphi%40delphi.org.nz/
