Retrouver un TTreenode d'après son texte dans un Treeview

function FindTreeText(Tree: TTreeview; AText: string): TTreeNode;
var
iLoop: integer;
begin
result := nil;
if not Assigned(Tree) then
exit;

if Tree.Items.Count > 0 then
for iLoop := 0 to Pred(Tree.items.Count) do
if Uppercase(Trim(Tree.Items[iLoop].Text)) = Uppercase(AText) then
begin
Result := Tree.Items[iLoop];
Break;
end;
end;

//Exemple
//Sélectionner un element d'un Treeview d'après son texte
procedure TfDetail.Button1Click(Sender: TObject);
var
Node: TTreeNode;
begin
Node := FindTreeText(Treeview1, 'mon texte');
if Node <> nil then
Treeview1.Selected := Node;
end;
Ajouter un commentaire
Pseudo
Adresse email
Site internet (optionnel)
Votre commentaire
Fiche de l'article
Mise a jour22/05/2005
VisualisationVu 1808 fois
PublicInternaute zz
CategorieDelphi - Trucs et astuces - Objet
Auteur de l'article
P. Below P. Below
connecté le 02/11/2011
19 articles dans la section
Contacter l'auteur