| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Поиск в TreeView [D7, WinXP]
VMan80 © (2009-11-28 20:17:00)Пишу компонент для выбора папки (директории) на основе TreeView. Вернее он практически уже готов. Хочу реализовать функцию, чтобы при запуске в дереве TreeView открывалась заданная папка (ветка). К примеру: C:\Test\1\. Хочу сделать так (думаю наиболее оптимальный по скорости работы путь, если нет - поправьте): из искомой строки в цикле поочередно выделяю сегмент для поиска: "C:\", "Test\" и "1\", которые затем поочередно буду искать в каждом соответствующем уровне дерева TreeView.
С первым уровнем все понятно (пример условный):
SearchStr := "C:\";
CurItem: = TreeView1.Items.GetFirstNode;
while CurItem<>nil do
begin
if CurItem.Text = SearchStr then
// вот тут нужно выполнить переход на следующий Level, чтобы пройти по его Item-am Но вот как?
// если указать CurItem := CurItem.GetNextChild(CurItem); - то происходит переход на следующий Item
// на этом же уровне дерева, а мне надо перейти на новый Level !!!!!
else
CurItem: = CurItem.GetNext;
end;
Вообще, может есть готовые варианты решения?
VMan80 (2009-11-29 11:33:00) [1]Спасибо! Разобрался.
Ухарь (2009-11-28 21:25:00) [2]Готовые варианты решения конечно же есть - функция
SelectDirectory
а по поводу цикла по дереву - можно сделать сквозной цикл:
for I:=0 to TreeView1.Items.Count - 1 do
begin
if TreeView1.Items[I].text = SearchStr then ...
end;
| |
