Develop and Download Open Source Software

Browse CVS Repository

Diff of /gikonavigoeson/gikonavi/Favorite.pas

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

revision 1.23 by h677, Thu Mar 18 14:16:57 2004 UTC revision 1.24 by h677, Mon Mar 22 12:35:13 2004 UTC
# Line 185  procedure TFavoriteDM.DataModuleDestroy( Line 185  procedure TFavoriteDM.DataModuleDestroy(
185  var  var
186          i: Integer;          i: Integer;
187  begin  begin
188        TreeView.Items.BeginUpdate;
189          for i := TreeView.Items.Count - 1 downto 0 do begin          for i := TreeView.Items.Count - 1 downto 0 do begin
190                  TObject(TreeView.Items[i].Data).Free;                  TObject(TreeView.Items[i].Data).Free;
191          end;          end;
192        TreeView.Items.EndUpdate;
193      TreeView.Free;      TreeView.Free;
194  end;  end;
195    

Legend:
Removed from v.1.23  
changed lines
  Added in v.1.24

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