・ReloadBBS を若干強化。

diff --git a/Giko.pas b/Giko.pas
index a79c018..f6df1fa 100644 (file)
--- a/Giko.pas
+++ b/Giko.pas
@@ -1870,10 +1870,13 @@ begin
        TreeView.Items.Clear;
 
        //BBS\94j\8aü
-       for i := 0 to Length( BBSs ) - 1 do begin
-               if BBSs[ i ] <> nil then
-                       BBSs[ i ].Free;
-               BBSs[ i ] := nil;
+       try
+               for i := Length( BBSs ) - 1 downto 0 do begin
+                       if BBSs[ i ] <> nil then
+                               BBSs[ i ].Free;
+                       BBSs[ i ] := nil;
+               end;
+       except
        end;
 
        ActiveList := nil;
@@ -1884,6 +1887,13 @@ begin
        ShowBBSTree( BBSs[ 0 ] );
 
        // \97\9a\97ð\93Ç\82Ý\8d\9e\82Ý
+       SaveHistory;
+       try
+               for i := FHistoryList.Count - 1 downto 0 do
+                       TFavoriteThreadItem( FHistoryList[ i ] ).Free;
+       except
+       end;
+       FHistoryList.Clear;
        LoadHistory;
 
        //\82¨\8bC\82É\93ü\82è\93Ç\82Ý\8d\9e\82Ý
@@ -3863,8 +3873,8 @@ begin
 //     OleVariant(Browser.Document).parentWindow.location.hash := AName;
        nm := AName;
        try
-       OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=
-                       OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;
+               OleVariant(Browser.Document as IHTMLDocument2).body.scrollTop :=
+                       OleVariant(Browser.Document as IHTMLDocument2).anchors.item(nm).offsetTop;
        except
        end;
 end;