G
guqiu
Unregistered / Unconfirmed
GUEST, unregistred user!
procedure ClearTreeViewData(Tree: TTreeview);
var
i:integer;
begin
for i:=0 to Tree.Items.Count-1do
if Tree.Items.Data<>nil then
Dispose(Tree.Items.Data);
Tree.Items.Clear;
end;
var
i:integer;
begin
for i:=0 to Tree.Items.Count-1do
if Tree.Items.Data<>nil then
Dispose(Tree.Items.Data);
Tree.Items.Clear;
end;
MyNode;