Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Sort.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.3 by h677, Thu Sep 4 08:22:07 2003 UTC revision 1.4 by h677, Fri Dec 19 12:33:06 2003 UTC
# Line 3  unit Sort; Line 3  unit Sort;
3  interface  interface
4  uses  uses
5          Windows, Messages, SysUtils, Classes, Controls, Forms,          Windows, Messages, SysUtils, Classes, Controls, Forms,
6          BoardGroup;          BoardGroup,DateUtils;
7    
8          function CategorySortProc(Item1, Item2: Pointer): integer;          function CategorySortProc(Item1, Item2: Pointer): integer;
9          function BoardSortProc(Item1, Item2: Pointer): integer;          function BoardSortProc(Item1, Item2: Pointer): integer;
# Line 77  begin Line 77  begin
77                  3: Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);                  3: Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);
78                  4: Result := 0;                  4: Result := 0;
79                  5: Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);                  5: Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);
80                  6: Result := CompareDate(ThreadItem1.LastModified, ThreadItem2.LastModified);                  6: Result := CompareDateTime(ThreadItem1.RoundDate, ThreadItem2.RoundDate);
81      else      else
82          Result := 0;          Result := 0;
83          end;          end;

Legend:
Removed from v.1.3  
changed lines
  Added in v.1.4

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26