Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Sort.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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; |
| 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 |
|
|
| |