Текущий архив: 2004.12.05;
Скачать: CL | DM;

Вниз

Поиск по TreeView   Найти похожие ветки 

← →
kaktus   (2004-11-23 12:32) [0]

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

---

← →
cae ©   (2004-11-23 16:08) [1]


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 ;


---

← →
kaktus   (2004-11-23 17:41) [2]

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

---

Страницы: 1 вся ветка

Текущий архив: 2004.12.05;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.048 c