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.37 by yoffy, Tue Aug 3 16:48:35 2004 UTC revision 1.38 by yoffy, Tue Aug 3 17:21:51 2004 UTC
# Line 245  begin Line 245  begin
245  end;  end;
246  procedure TFavoriteDM.Clear;  procedure TFavoriteDM.Clear;
247  var  var
248          i: Integer;          Node    : TTreeNode;
249  begin  begin
250      TreeView.Items.BeginUpdate;          TreeView.Items.BeginUpdate;
251          for i := TreeView.Items.Count - 1 downto 0 do begin          Node    := TreeView.Items.GetFirstNode;
252                  if TObject(TreeView.Items[i].Data) <> nil then          while Node <> nil do begin
253                  TObject(TreeView.Items[i].Data).Free;                  if TObject(Node.Data) <> nil then
254                                    TObject(Node.Data).Free;
255                    Node := Node.GetNext;
256          end;          end;
257      TreeView.Items.Clear;                  TreeView.Items.Clear;
258      TreeView.Items.EndUpdate;                  TreeView.Items.EndUpdate;
259      //TreeView.Free;      //TreeView.Free;
260  end;  end;
261    

Legend:
Removed from v.1.37  
changed lines
  Added in v.1.38

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