Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

поиск узла в тривью по тексту [D6, WinXP]

kvazar © (2002-03-24 09:24:00)
подскажите, как можно найти нужный нод в тривью, если известен только текст нода, но текст уникальный

kvazar (2002-03-24 10:25:00) [1]
большое спасибо!!!!

MBo (2002-03-24 10:17:00) [2]
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:12:00) [3]
thx, буду пробовать

MBo (2002-03-24 10:07:00) [4]
даже если есть, все равно внутри перебор

kvazar (2002-03-24 09:59:00) [5]
перебором всех итемов? а другого способа нет?

MBo (2002-03-24 09:30:00) [6]
пробегай по итемам

Наверх

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