Поиск и т.п. в дереве

Поиск и т.п. в дереве

добавление элемента внутрь выделенного, удаление выделенного
(и всех детей), а также поиск узла по его имени

function findbydata(treenodes : ttreenodes; dataf : string) : ttreenode ;
var
i : integer;
begin
for i := 0 to treenodes.count-1 do begin
if ansicomparestr(string(treenodes.item[i].text), dataf) = 0 then begin
result := treenodes.item[i];
exit;
end;
end;
result := nil;
end;

procedure tform1.naddclick(sender: tobject);
var
treenode : ttreenode;
begin
treenode := treeview1.items.addchild(treeview1.selected, inttostr(random(1000)));
end;

procedure tform1.ndeleteclick(sender: tobject);
begin
treeview1.selected.delete;
end;

procedure tform1.nfindclick(sender: tobject);
var
treenode : ttreenode;
begin
try
treenode := findbydata(treeview1.items ,inputbox('???? ????? ???','','0'));
if treenode <> nil then
treeview1.selected := treenode;
except
showmessage('Ошибка, вероятно введено некорректное число');
end;
end;

Источник:
programist.ru

Эта запись была добавлена в Суббота, 17 мая, 2008 - 6:12 В разделы TreeView, Компоненты. Вы можете подписаться на получение новых комментариев RSS 2.0 feed. Both comments and pings are currently closed.