Форум: "Основная";
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];
Внизпоиск узла в тривью по тексту Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c