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;
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Ý
// 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;