Poraďte prosím, jsem začátečník. mám funkci na hledání v Treeview, ale najde pouze první záznam. Potřebuji, aby mě našla a označila buďto postupně i ty další, anebo označila všechny najednou. Jak mám změnit používanou funkci.
function TForm1.TreeViewSearch(TV: TTreeView; SItem: string): TTreeNode;
var
i: Integer;
iItem: string;
begin
Result := nil;
if (TV = nil) or (SItem = '') then Exit;
for i := 0 to TV.Items.Count - 1 do
begin
iItem := TV.Items[i].Text;
if SItem = iItem then
begin
Result := TV.Items[i];
Exit;
end;
end;
end;
procedure TForm1.ToolButton5Click(Sender: TObject);
begin
TreeView1.Selected := TreeViewSearch(TreeView1,Edit1.Text);
Treeview1.SetFocus; // označí cíl
end;
Díky za rady.