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.152 by yoffy, Wed Nov 26 13:58:56 2003 UTC revision 1.153 by h677, Thu Nov 27 11:19:34 2003 UTC
# Line 1773  begin Line 1773  begin
1773          end;          end;
1774    
1775          try          try
1776                    for i := 0 to Length( BBSs ) - 1 do begin
1777                            if BBSs[ i ] <> nil then
1778                                    BBSs[ i ].Free;
1779                            BBSs[ i ] := nil;
1780                    end;
1781            except
1782            end;
1783            try
1784                  for i := 0 to Length( BoardPlugIns ) - 1 do begin                  for i := 0 to Length( BoardPlugIns ) - 1 do begin
1785                          if BoardPlugIns[ i ] <> nil then                          if BoardPlugIns[ i ] <> nil then
1786                                  BoardPlugIns[ i ].Free;                                  BoardPlugIns[ i ].Free;
# Line 1781  begin Line 1789  begin
1789          except          except
1790          end;          end;
1791    
         try  
                 for i := 0 to Length( BBSs ) - 1 do begin  
                         if BBSs[ i ] <> nil then  
                                 BBSs[ i ].Free;  
                         BBSs[ i ] := nil;  
                 end;  
         except  
         end;  
1792    
1793          try          try
1794                  for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin                  for i := CabinetSelectPopupMenu.Items.Count - 1 downto 0 do begin
# Line 4768  end; Line 4768  end;
4768  procedure TGikoForm.ListViewDblClick(Sender: TObject);  procedure TGikoForm.ListViewDblClick(Sender: TObject);
4769  begin  begin
4770          ListDoubleClick;          ListDoubleClick;
4771        
4772  end;  end;
4773    
4774  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);  procedure TGikoForm.LogDeleteActionExecute(Sender: TObject);

Legend:
Removed from v.1.152  
changed lines
  Added in v.1.153

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