ソート評価が同じ場合は、第1カラムの昇順にソート

[gikonavigoeson/gikonavi.git] / Sort.pas

diff --git a/Sort.pas b/Sort.pas
index 2b44b56..41160a6 100644 (file)
--- a/Sort.pas
+++ b/Sort.pas
@@ -112,6 +112,14 @@ begin
 }
        if not SortOrder then
                Result := Result * -1;
+
+       // \83\\81[\83g\95]\89¿\82ª\93¯\82¶\8fê\8d\87\82Í\81A\91æ1\83J\83\89\83\80\82Ì\8f¸\8f\87\82É\83\\81[\83g
+       if Result = 0 then begin
+               if SortNoFlag then
+                       Result := CompareInt(ThreadItem1.No, ThreadItem2.No)
+               else
+                       Result := AnsiCompareText(ThreadItem1.Title, ThreadItem2.Title)
+       end;
 end;
 
 function CompareBool(Item1, Item2: Boolean): Integer;