板の二重登録対策

diff --git a/BoardGroup.pas b/BoardGroup.pas
index 9b311e4..8d52779 100644 (file)
--- a/BoardGroup.pas
+++ b/BoardGroup.pas
@@ -183,7 +183,7 @@ type
                FHEADTXTTime: TDateTime;                //HEAD.TXT\82ð\8eæ\93¾\82µ\82½\93ú\8e\9e
                FIsHEADTXT:             boolean;        //HEAD.TXT\82ð\8eæ\93¾\82µ\82Ä\82¢\82é\82©
         FTitlePictureURL:      string; //top\8aG\82ÌURL
-
+               FMultiplicity : Integer; //\8fd\95¡\82µ\82Ä\82¢\82é\82©\82Ç\82¤\82©\81H
                function GetThreadItem(index: integer): TThreadItem;
                procedure SetThreadItem(index: integer; value: TThreadItem);
                procedure SetRound(b: Boolean);
@@ -262,7 +262,7 @@ type
                property HEADTXTTime: TDateTime read FHEADTXTTime write FHEADTXTTime;
                property IsHEADTXT:     boolean read FIsHEADTXT write FIsHEADTXT;
         property TitlePictureURL: string read FTitlePictureURL write FTitlePictureURL;
-
+               property Multiplicity: Integer read FMultiplicity write FMultiplicity;
        end;
 
        //\83X\83\8c
@@ -674,9 +674,19 @@ begin
 end;
 
 procedure TCategory.Delete(index: integer);
+var
+       i : integer;
 begin
-       if Items[index] <> nil then
-               TBoard(Items[index]).Free;
+       if (Items[index] <> nil) then begin
+               try
+                       if TBoard(Items[index]).Multiplicity = 0 then
+                               TBoard(Items[index]).Free
+                       else
+                               TBoard(Items[index]).Multiplicity := TBoard(Items[index]).Multiplicity - 1;
+               except
+                       i :=index;
+               end;
+       end;
        inherited Delete(index);
 end;
 
@@ -999,7 +1009,7 @@ procedure TBoard.LoadSettings;
 var
        ini: TMemIniFile;
        FileName: string;
-    tmp: string;
+       tmp: string;
 begin
        if Length( FilePath ) > 0 then
                FileName := ExtractFilePath( FilePath ) + FOLDER_INI_FILENAME
@@ -1111,7 +1121,7 @@ begin
     except
        if( inDateTimeString[5] = '/' ) and ( inDateTimeString[8] = '/' ) then begin
             y := StrToIntDef( Copy(inDateTimeString, 1, 4), 1970 );
-            m := StrToIntDef( Copy(inDateTimeString, 6, 2), 1 );
+                       m := StrToIntDef( Copy(inDateTimeString, 6, 2), 1 );
             d := StrToIntDef( Copy(inDateTimeString, 9, 2), 1 );
             hour := 0; min  := 0; sec  := 0;