// Search a TreeItem through its Text property // Return value is a TreeNodeObject // TreeItem uber die TextEigenschaft suchen // Der Ruckgabewert der Function ist ein TreeNodeObject. function Form1.TreeItemSearch(TV: TTreeView; SucheItem: string): TTreeNode;
var
i: Integer;
iItem: string;
beginif (TV = nil) or (SucheItem = "") then Exit;
for i := 0 to TV.Items.Count - 1 dobegin
iItem := TV.Items[i].Text;
if SucheItem = iItem thenbegin
Result := TV.Items[i];
Exit;
endelsebegin
Result := nil;
end;
end;
end;
// Example: Search for Wasserfall in TreeView1 and select item // Beispiel: Sucht in TreeView1 das // Item mit der Beschriftung >Wasserfall< u. selectiert es; procedure TForm1.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin//either - entweder so
Node := TreeItemSuchen(TreeView1, "Wasserfall");
TreeView1.Selected := Node;
//or - oder so
TreeView1.Selected := TreeItemSuchen(TreeView1, "Wasserfall ");
end;
Если Вас заинтересовала или понравилась информация по разработке на Delph - "Искать узел TTreeView через его свойство Text", Вы можете поставить закладку в социальной сети или в своём блоге на данную страницу: Так же Вы можете задать вопрос по работе этого модуля или примера через форму обратной связи, в сообщение обязательно указывайте название или ссылку на статью!