板更新時の不具合修正

diff --git a/Giko.pas b/Giko.pas
index 7b81e12..4ea32ba 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1840,8 +1840,6 @@ begin
        if FStartUp then begin
                ShowWindow(Application.Handle, SW_HIDE);
 
-
-
                //FormCreate\82Å\82â\82é\82Æ\89Â\8e\8b\90Ý\92è\82ª\94½\89f\82³\82ê\82È\82¢\8fê\8d\87\82ª\82 \82é\82Ì\82ÅFormShow\82Å\82â\82é\82±\82Æ\82É\82µ\82½
                //\83c\81[\83\8b\83o\81[\95\\8e¦
                StdToolBarVisibleAction.Checked := GikoSys.Setting.StdToolBarVisible;
@@ -2128,7 +2126,7 @@ begin
        except
        end;
 
-
+       {
        try
                for i := Length( BoardPlugIns ) - 1 downto  0 do begin
                        if BoardPlugIns[ i ] <> nil then
@@ -2137,7 +2135,7 @@ begin
                end;
        except
        end;
-
+    }
        try
                if FEvent <> nil then
                        FEvent.Free;
@@ -2223,6 +2221,26 @@ begin
        //TreeView\83N\83\8a\83A\81iBBS2ch.Free\82Ì\8cã\82É\83N\83\8a\83A\82·\82é\82ÆXP\83X\83^\83C\83\8b\8e\9e\82É\83G\83\89\81[\8fo\82é\81j
        TreeView.Items.Clear;
 
+       //\8f\84\89ñ\83\8a\83X\83g\95Û\91¶
+       try
+               RoundList.SaveRoundFile;
+       except
+       end;
+       //\8f\84\89ñ\83\8a\83X\83g\82ð\94j\8aü
+       try
+               RoundList.Clear;
+       except
+       end;
+
+       //\97\9a\97ð\82Ì\95Û\91¶\82Æ\94j\8aü
+       SaveHistory;
+       ClearHistory;
+
+       //\82¨\8bC\82É\93ü\82è\82Ì\95Û\91¶\82Æ\94j\8aü
+       FavoriteDM.WriteFavorite;
+       FavoriteDM.Clear;
+
+
        //BBS\94j\8aü
        try
                for i := Length( BBSs ) - 1 downto 0 do begin
@@ -2236,44 +2254,32 @@ begin
        ActiveList := nil;
 
        FTreeType := gttNone;
-    //GikoSys.FBoardURLList.Clear;
-    for i := Length(BoardGroups) - 1 downto 0 do begin
-       BoardGroups[i].Clear;
-    end;
+       //GikoSys.FBoardURLList.Clear;
+       for i := Length(BoardGroups) - 1 downto 0 do begin
+               BoardGroups[i].Clear;
+       end;
        GikoSys.ListBoardFile;          //\83{\81[\83h\83t\83@\83C\83\8b\93Ç\8d\9e
 
+       // \82·\82×\82Ä\82ÌBBS\82ð\93Ç\82Ý\8d\9e\82ñ\82Å\82¨\82­
+       for i := Length(BBSs) - 1 downto 0 do begin
+               if not BBSs[i].IsBoardFileRead then
+                       GikoSys.ReadBoardFile(BBSs[i]);
+       end;
+
        // BBS \83\81\83j\83\85\81[\82Ì\8dX\90V
        SetBBSMenu;
 
        ShowBBSTree( BBSs[ 0 ] );
 
        // \97\9a\97ð\93Ç\82Ý\8d\9e\82Ý
-       SaveHistory;
-       ClearHistory;
        LoadHistory;
 
        //\82¨\8bC\82É\93ü\82è\93Ç\82Ý\8d\9e\82Ý
-       FavoriteDM.WriteFavorite;
-       FavoriteDM.Clear;
        FavoriteDM.ReadFavorite;
 
        SetLinkBar;
 
-       // \82·\82×\82Ä\82ÌBBS\82ð\93Ç\82Ý\8d\9e\82ñ\82Å\82¨\82­
-       for i := Length(BBSs) - 1 downto 0 do begin
-               if not BBSs[i].IsBoardFileRead then
-                       GikoSys.ReadBoardFile(BBSs[i]);
-       end;
-
-       //\8f\84\89ñ\83\8a\83X\83g\95Û\91¶&\94j\8aü
-       try
-               RoundList.SaveRoundFile;
-       except
-       end;
-       try
-               RoundList.Clear;
-       except
-       end;
+       //\8f\84\89ñ\82Ì\93Ç\82Ý\8d\9e\82Ý
        RoundList.LoadRoundBoardFile;
        RoundList.LoadRoundThreadFile;
 
@@ -12028,7 +12034,9 @@ var
        msg : String;
        ReadList                : TStringList;
        wordCount               : TWordCount;
-       {i : Integer;}
+{$IFDEF SPAM_FILTER_ENABLED}
+       i : Integer;
+{$ENDIF}
 begin
        IndividualForm := TIndividualAbonForm.Create(Self);
        try