警告の排除、コード整理。

[gikonavigoeson/gikonavi.git] / Sort.pas

diff --git a/Sort.pas b/Sort.pas
index a695b5d..7958e54 100644 (file)
--- a/Sort.pas
+++ b/Sort.pas
@@ -35,6 +35,8 @@ begin
                        Result := CompareInt(CategoryItem1.No, CategoryItem2.No)
                else
                        Result := AnsiCompareText(CategoryItem1.Title, CategoryItem2.Title);
+       else
+               Result := CompareInt(CategoryItem1.No, CategoryItem2.No)
        end;
 
        if not SortOrder then
@@ -60,6 +62,8 @@ begin
 
        gccLastModified:
                Result := CompareDate(BoardItem1.RoundDate, BoardItem2.RoundDate);
+       else
+               Result := CompareInt(BoardItem1.No, BoardItem2.No)
        end;
 
        if not SortOrder then