folder.idxを保存するときにスレ順ソートをなくした

diff --git a/GikoSystem.pas b/GikoSystem.pas
index 9062c71..6f671cc 100644 (file)
--- a/GikoSystem.pas
+++ b/GikoSystem.pas
@@ -590,7 +590,7 @@ begin
                                                        ThreadItem.Size := ini.ReadInteger('Setting', 'Size', 0);
                                                        if(ThreadItem.Size = 0) and (FileExists(ThreadItem.GetThreadFileName)) then begin
                                                                try
-                                                                       ThreadItem.Size := FileSizeByName(ThreadItem.GetThreadFileName) - ThreadItem.Count;
+                                                                       ThreadItem.Size := GetFileSize(ThreadItem.GetThreadFileName) - ThreadItem.Count;
                                                                except
                                                                end;
                                                        end;
@@ -645,7 +645,7 @@ begin
                        ThreadItem.Count := GetFileLineCount(FileName);
                        ThreadItem.AllResCount := ThreadItem.Count;
                        ThreadItem.NewResCount := ThreadItem.Count;
-                       ThreadItem.Size := FileSizeByName(FileName) - ThreadItem.Count;//1byte\82¸\82ê\82é\82Æ\82«\82ª\82 \82é\82¯\82Ç\82»\82ê\82Í\82 \82«\82ç\82ß\82é
+                       ThreadItem.Size := GetFileSize(FileName) - ThreadItem.Count;//1byte\82¸\82ê\82é\82Æ\82«\82ª\82 \82é\82¯\82Ç\82»\82ê\82Í\82 \82«\82ç\82ß\82é
                        ThreadItem.RoundDate := ZERO_DATE;
                        ThreadItem.LastModified := ZERO_DATE;
                        ThreadItem.Kokomade := -1;
@@ -667,11 +667,6 @@ begin
                Board.Sorted := False;
        end;
        Board.IsThreadDatRead := True;
-       if (Board.Count > 0) and (not FileExists(Board.GetFolderIndexFileName)) then begin
-               WriteThreadDat(Board);
-               CreateThreadDat(Board);
-       end;
-
 end;
 
 (*************************************************************************
@@ -757,20 +752,6 @@ begin
        TmpFileList.Sorted := true;
        try
                GetFileList(ExtractFileDir(Board.GetFolderIndexFileName), '*.tmp', TmpFileList, false);
-               baseup := 0;
-               for i := 0 to Board.Count - 1 do begin
-                       if Board.Items[i].No = 0 then Inc(baseup);
-               end;
-               for i := 0 to Board.Count - 1 do begin
-                       Board.Items[i].No := Board.Items[i].No + baseup
-               end;
-               for i := 0 to Board.Count - 1 do begin
-                       if i <>  Board.Items[i].No - 1 then begin
-                               TmpThreadItem := Board.Items[Board.Items[i].No - 1];
-                               Board.Items[Board.Items[i].No - 1] := Board.Items[i];
-                               Board.Items[i] := TmpThreadItem;
-                       end;
-               end;
                sl.BeginUpdate;
                sl.Add(FOLDER_INDEX_VERSION);
                for i := 0 to Board.Count - 1 do begin