Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/InputAssist.pas

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

revision 1.4 by h677, Sun Feb 26 16:40:51 2006 UTC revision 1.5 by h677, Mon May 29 15:34:46 2006 UTC
# Line 72  var Line 72  var
72    
73  implementation  implementation
74    
75  uses Setting;  uses Setting, MojuUtils;
76    
77    
78  {$R *.dfm}  {$R *.dfm}
# Line 194  procedure TInputAssistForm.GikoListView1 Line 194  procedure TInputAssistForm.GikoListView1
194  begin  begin
195          if ((FSortColumn and 2) > 0) then begin          if ((FSortColumn and 2) > 0) then begin
196                  // カテゴリでソート                  // カテゴリでソート
197                  Compare := AnsiCompareStr(Item1.SubItems[0], Item2.SubItems[0]);                  Compare := CompareStr(
198                            ZenToHan(Item1.SubItems[0]), ZenToHan(Item2.SubItems[0]));
199                  if (Compare = 0) then begin                  if (Compare = 0) then begin
200                          Compare := AnsiCompareStr(Item1.Caption, Item2.Caption);                          Compare := CompareStr(
201                                    ZenToHan(Item1.Caption), ZenToHan(Item2.Caption));
202                  end;                  end;
203          end else begin          end else begin
204                  // キーでソート                  // キーでソート
205                  Compare := AnsiCompareStr(Item1.Caption, Item2.Caption);                  Compare := CompareStr(
206                            ZenToHan(Item1.Caption), ZenToHan(Item2.Caption));
207                  if (Compare = 0) then begin                  if (Compare = 0) then begin
208                          Compare := AnsiCompareStr(Item1.SubItems[0], Item2.SubItems[0]);                          Compare := CompareStr(
209                                    ZenToHan(Item1.SubItems[0]), ZenToHan(Item2.SubItems[0]));
210                  end;                  end;
211          end;          end;
212          // 昇順降順の反転          // 昇順降順の反転

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

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