Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.04.04;
Скачать: CL | DM;

Вниз

поиск узла в тривью по тексту   Найти похожие ветки 

 
kvazar   (2002-03-24 09:24) [0]

подскажите, как можно найти нужный нод в тривью, если известен только текст нода, но текст уникальный


 
MBo ©   (2002-03-24 09:30) [1]

пробегай по итемам


 
kvazar   (2002-03-24 09:59) [2]

перебором всех итемов? а другого способа нет?


 
MBo ©   (2002-03-24 10:07) [3]

даже если есть, все равно внутри перебор


 
kvazar   (2002-03-24 10:12) [4]

thx, буду пробовать


 
MBo ©   (2002-03-24 10:17) [5]

Answer 1:


function GetNodeByCaption(NodeCaption: String): TTreeNode;
var
X: Integer;
begin
Result := nil;
for X := 0 to TreeView1.Items.Count - 1 do
begin
if (TreeView1.Items[X].Caption = NodeCaption) then
Result := TreeView1.Items[X];
Break;
end;
end;



Tip by Tom Olson



Answer 2:

Returns a node based on the text property. Set AVisible to show the new node:



function GetNodeByText(ATree: TTreeView; AValue: String;
AVisible: Boolean): TTreeNode;
var
Node: TTreeNode;
begin
Result := nil;
if ATree.Count = 0
then Exit;
Node := ATree.Items[0];
while Node <> nil do
begin
if UpperCase(Node.Text) = AValue then
begin
Result := Node;
if AVisible then
Result.MakeVisible;
Break;
end;
Node := Node.GetNext;
end;
end;



Tip by Bart Standaert



 
kvazar   (2002-03-24 10:25) [6]

большое спасибо!!!!



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
7-9657
Самый главный Ламер
2001-12-30 18:12
2002.04.04
Чтение из COM - порта и установка таймаутов.


1-9510
vvlad
2002-03-21 19:01
2002.04.04
Форма не реагирует на нажатие кнопок и мышь в фокусе, и реагирует без фокуса


1-9458
rgg
2002-03-24 11:26
2002.04.04
Работа со Speech api


3-9377
JibSkeart
2002-03-08 18:25
2002.04.04
Пернести базу MSSQL 6.5 на MSSQL 7.xx Реально ли?


1-9585
MARcoDEN
2002-03-24 08:20
2002.04.04
Запуск программы