Browse CVS Repository
Diff of /gikonavigoeson/gikonavi/Favorite.pas
Parent Directory
| Revision Log
| Revision Graph
| Patch
| 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 |
|
|
|