Mega Code Archive
Search a treeview item through its text property
<![CDATA[
// Search a TreeItem through its Text property
// Return value is a TreeNodeObject
// TreeItem über die TextEigenschaft suchen
// Der Rückgabewert der Function ist ein TreeNodeObject.
function Form1.TreeItemSearch(TV: TTreeView; SucheItem: string): TTreeNode;
var
i: Integer;
iItem: string;
begin
if (TV = nil) or (SucheItem = '') then Exit;
for i := 0 to TV.Items.Count - 1 do
begin
iItem := TV.Items[i].Text;
if SucheItem = iItem then
begin
Result := TV.Items[i];
Exit;
end
else
begin
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;
]]>