OSDN Git Service

まちBBSで削除レスがあるレス番号とスレの件数がずれる不具合を修正
authorzako <zako@users.sourceforge.jp>
Wed, 17 Dec 2014 15:10:12 +0000 (00:10 +0900)
committerzako <zako@users.sourceforge.jp>
Wed, 17 Dec 2014 15:10:12 +0000 (00:10 +0900)
gikoNavi.res
res/ExternalBoardPlugIn/MachiBBSPlugIn.dpr
res/ExternalBoardPlugIn/MachiBBSPlugIn.res

index a02ce35..d9e594a 100644 (file)
Binary files a/gikoNavi.res and b/gikoNavi.res differ
index 80a929c..807ffda 100644 (file)
@@ -86,7 +86,7 @@ const
        MAJOR_VERSION                   = 1;
        MINOR_VERSION                   = 0;
        RELEASE_VERSION         = 'beta';
-       REVISION_VERSION        = 23;
+       REVISION_VERSION        = 24;
 
 // =========================================================================
 // \8eG\97p\8aÖ\90\94
@@ -916,15 +916,21 @@ const
     IDX_ID:    Integer = 3;
     IDX_ADDST: Integer = 1;
     IDX_ADDED: Integer = 5;
+    IDX_NO:    Integer = 0;
 var
+    DstTmp: TStringList;
     ResLine: TStringList;
     TmpLine: String;
     i: Integer;
     j: Integer;
     Sep: Integer;
+    No: Integer;
+    GetNo: Integer;
 begin
+    DstTmp := TStringList.Create;
     ResLine := TStringList.Create;
     try
+        No := Count + 1;    // \8ds\94Ô\8d\86\81i\83\8c\83X\94Ô\8d\86\81j
         for i := 0 to ioDat.Count - 1 do begin
             // \82P\8ds\82ð\8d\80\96Ú\95Ê\82É\90Ø\82è\95ª\82¯\82é
             ResLine.Clear;
@@ -953,10 +959,21 @@ begin
                     TmpLine := TmpLine + SEP_TAG + ResLine.Strings[j];
             end;
 
-            ioDat.Strings[i] := TmpLine;
+            GetNo := StrToIntDef(ResLine.Strings[IDX_NO], 0);
+            while (GetNo > No) do begin
+                DstTmp.Add('');
+                Inc(No);
+            end;
+
+            DstTmp.Add(TmpLine);
+
+            Inc(No);
         end;
+        ioDat.Clear;
+        ioDat.Assign(DstTmp);
        finally
         ResLine.Free;
+        DstTmp.Free;
        end;
 end;
 
index 64ee241..ba1e1da 100644 (file)
Binary files a/res/ExternalBoardPlugIn/MachiBBSPlugIn.res and b/res/ExternalBoardPlugIn/MachiBBSPlugIn.res differ