| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Поиск по TreeView

kaktus ©   (2004-11-23 12:32:00) 

Здраствуйте мастера!
Такой вопрос, а как имея строку со значением найти это значение в TreeView и сделать этот элемент активным!

---

kaktus   (2004-11-23 17:41:00) [1]

Большое спасибо - мне очень помогло в моем проджекте!

---

cae   (2004-11-23 16:08:00) [2]


function FindItemsTree(Tree : TTreeView; SText : String; StartIndex : Integer = 0) : Boolean;
var
I : Integer ;
begin
Result := False ;
if (StartIndex < 0) or (StartIndex >= Tree.Items.Count) then exit ;

for i := StartIndex to Tree.Items.Count-1 do
if Tree.Items[i].Text = SText then
 begin
  Result := True ;
  Tree.Items[i].Selected := True ;
  exit ;
 end ; // for i
end ;


---

Наверх