Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Giko.pas

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph | View Patch Patch

revision 1.154 by yoffy, Thu Nov 27 13:04:17 2003 UTC revision 1.155 by yoffy, Thu Nov 27 14:08:43 2003 UTC
# Line 1772  begin Line 1772  begin
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
# Line 1780  begin Line 1783  begin
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
# Line 1789  begin Line 1793  begin
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
# Line 1890  begin Line 1892  begin
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;
# Line 3583  begin Line 3584  begin
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;

Legend:
Removed from v.1.154  
changed lines
  Added in v.1.155

Back to OSDN">Back to OSDN
ViewVC Help
Powered by ViewVC 1.1.26