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.6 by yoffy, Sat Apr 10 13:52:59 2004 UTC revision 1.7 by q9_, Sat Jul 10 15:44:50 2004 UTC
# Line 16  var Line 16  var
16          SortOrder: Boolean;          SortOrder: Boolean;
17          SortIndex: Integer;          SortIndex: Integer;
18          SortNoFlag: Boolean;          SortNoFlag: Boolean;
19            SortNonAcquiredCountFlag: Boolean;
20    
21  implementation  implementation
22    
# Line 73  begin Line 74  begin
74                                          Result := AnsiCompareText(ThreadItem1.Title, ThreadItem2.Title)                                          Result := AnsiCompareText(ThreadItem1.Title, ThreadItem2.Title)
75                          end;                          end;
76                  1: Result := CompareInt(ThreadItem1.AllResCount, ThreadItem2.AllResCount);                  1: Result := CompareInt(ThreadItem1.AllResCount, ThreadItem2.AllResCount);
77                  2: Result := CompareInt(ThreadItem1.Count, ThreadItem2.Count);                  2:
78                            begin
79                                    if SortNonAcquiredCountFlag then
80                                            if ThreadItem1.IsLogFile and ThreadItem2.IsLogFile then
81                                                    Result := CompareInt(ThreadItem1.AllResCount - ThreadItem1.Count, ThreadItem2.AllResCount - ThreadItem2.Count)
82                                            else if ThreadItem1.IsLogFile then
83                                                    Result := 1
84                                            else if ThreadItem2.IsLogFile then
85                                                    Result := -1
86                                            else
87                                                    Result := 0
88                                    else
89                                            Result := CompareInt(ThreadItem1.Count, ThreadItem2.Count);
90                            end;
91                  3: Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);                  3: Result := CompareInt(ThreadItem1.NewResCount, ThreadItem2.NewResCount);
92                  4: Result := 0;                  4: Result := 0;
93                  5: Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);                  5: Result := AnsiCompareText(ThreadItem1.RoundName, ThreadItem2.RoundName);
94                  6: Result := CompareDateTime(ThreadItem1.RoundDate, ThreadItem2.RoundDate);                  6: Result := CompareDateTime(ThreadItem1.RoundDate, ThreadItem2.RoundDate);
95          7: Result := CompareDateTime(ThreadItem1.CreateDate, ThreadItem2.CreateDate);                  7: Result := CompareDateTime(ThreadItem1.CreateDate, ThreadItem2.CreateDate);
96      else          else
97          Result := 0;                  Result := 0;
98          end;          end;
99    
100  {       if SortIndex = 0 then  {       if SortIndex = 0 then

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

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