Folder.idx保存前にスレ番号でソート

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 44ebfba..097d20e 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -14,7 +14,8 @@ uses
 {$IFEND}
        {HttpApp,} YofUtils, URLMon, IdGlobal, IdURI, {Masks,}
        Setting, BoardGroup, gzip, Dolib, bmRegExp, AbonUnit,
-       MojuUtils, ExternalBoardManager, ExternalBoardPlugInMain;
+       MojuUtils, ExternalBoardManager, ExternalBoardPlugInMain,
+       Sort;
 
 type
        //BBS\83^\83C\83v
@@ -765,6 +766,14 @@ begin
                GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
                sl.BeginUpdate;
                sl.Add(FOLDER_INDEX_VERSION);
+
+               // \83X\83\8c\94Ô\8d\86\95Û\91¶\82Ì\82½\82ß\83\\81[\83g
+               Sort.SortNoFlag := true;
+               Sort.SortOrder := true;
+               Sort.SortIndex := 0;
+               //Sort.SortNonAcquiredCountFlag := GikoSys.Setting.NonAcquiredCount;
+               Board.CustomSort(ThreadItemSortProc);
+
                for i := 0 to Board.Count - 1 do begin
                        Board.Items[i].No := i + 1;
                        s := Format('%x', [Board.Items[i].No]) + #1