| 1772 |
except |
except |
| 1773 |
end; |
end; |
| 1774 |
|
|
| 1775 |
|
// TBBS は保持している TCategory, TBoard, TThreadItem すべてを開放する |
| 1776 |
|
// TBoard, TThreadItem のデストラクタはプラグインに破棄を伝えるので |
| 1777 |
|
// BoardPluteIns の開放より先に行うこと |
| 1778 |
try |
try |
| 1779 |
for i := 0 to Length( BBSs ) - 1 do begin |
for i := 0 to Length( BBSs ) - 1 do begin |
| 1780 |
if BBSs[ i ] <> nil then |
if BBSs[ i ] <> nil then |
| 1783 |
end; |
end; |
| 1784 |
except |
except |
| 1785 |
end; |
end; |
| 1786 |
|
|
| 1787 |
try |
try |
| 1788 |
for i := 0 to Length( BoardPlugIns ) - 1 do begin |
for i := 0 to Length( BoardPlugIns ) - 1 do begin |
| 1789 |
if BoardPlugIns[ i ] <> nil then |
if BoardPlugIns[ i ] <> nil then |
| 1793 |
except |
except |
| 1794 |
end; |
end; |
| 1795 |
|
|
|
|
|
| 1796 |
try |
try |
| 1797 |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
| 1798 |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
| 1799 |
//CabinetSelectPopupMenu.Items[ i ].Free; |
CabinetSelectPopupMenu.Items[ i ].Free; |
| 1800 |
CabinetSelectPopupMenu.Items.Delete( i ); |
CabinetMenu.Items[ i ].Free; |
|
CabinetMenu.Delete( i ); |
|
| 1801 |
end; |
end; |
| 1802 |
end; |
end; |
| 1803 |
except |
except |
| 1892 |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin |
| 1893 |
try |
try |
| 1894 |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
if CabinetSelectPopupMenu.Items[ i ] is TBBSMenuItem then begin |
| 1895 |
//CabinetSelectPopupMenu.Items[ i ].Free; |
CabinetSelectPopupMenu.Items[ i ].Free; |
| 1896 |
CabinetSelectPopupMenu.Items.Delete( i ); |
CabinetMenu.Items[ i ].Free; |
|
CabinetMenu.Delete( i ); |
|
| 1897 |
end; |
end; |
| 1898 |
except |
except |
| 1899 |
end; |
end; |
| 3584 |
if FileExists( fileName ) then begin |
if FileExists( fileName ) then begin |
| 3585 |
try |
try |
| 3586 |
XMLDoc := LoadXMLDocument(FileName); |
XMLDoc := LoadXMLDocument(FileName); |
| 3587 |
try |
try |
| 3588 |
XMLNode := XMLDoc.DocumentElement; |
XMLNode := XMLDoc.DocumentElement; |
| 3589 |
|
|
| 3590 |
if XMLNode.NodeName = 'address' then begin |
if XMLNode.NodeName = 'address' then begin |
| 3591 |
bound := XMLNode.ChildNodes.Count - 1; |
bound := XMLNode.ChildNodes.Count - 1; |
| 3592 |
for i := 0 to bound do begin |
for i := 0 to bound do begin |
| 3593 |
HistoryNode := XMLNode.ChildNodes[i]; |
HistoryNode := XMLNode.ChildNodes[i]; |
| 3594 |
if HistoryNode.NodeName = 'history' then begin |
if HistoryNode.NodeName = 'history' then begin |
| 3595 |
//if FReadCount >= sl.Count then begin |
//if FReadCount >= sl.Count then begin |
| 3596 |
s := Trim(HistoryNode.Attributes['url']); |
s := Trim(HistoryNode.Attributes['url']); |
| 3597 |
if s <> '' then begin |
if s <> '' then begin |
| 3598 |
favItem := TFavoriteThreadItem.Create( |
favItem := TFavoriteThreadItem.Create( |
| 3599 |
s, HistoryNode.Attributes[ 'title' ] ); |
s, HistoryNode.Attributes[ 'title' ] ); |
| 3600 |
AddHistory( favItem ); |
AddHistory( favItem ); |
| 3601 |
end; |
end; |
| 3602 |
//end; |
//end; |
| 3603 |
end; |
end; |
| 3604 |
end; |
end; |
| 3605 |
end; |
end; |
| 3606 |
finally |
finally |
| 3607 |
XMLDoc.Free; |
XMLDoc.Free; |
| 3608 |
end; |
end; |
| 3609 |
except |
except |
| 3610 |
end; |
end; |
| 3611 |
end; |
end; |