السلام عليكم
أنا أستخدم التابع التالي في البحث ضمن الـ treeview لكنه يبحث عن كلمة مطابقة لكلمة البحث
و أريد أن أقوم بالبحث عن أيتم مشابه لكلمة البحث أي لا يشترط أن يكون مطابق لكلمة البحث
أأمل أن أجد الحل هنا
function getnodebytext(atree : ttreeview; avalue : string):ttreenode ;
var node : ttreenode ;
begin
result := nil ;
if atree.Items.Count = 0 then
exit ;
node := atree.items[0] ;
while node <> nil do
begin
if uppercase(node.text) = uppercase(avalue) then
begin
result := node ;
break ;
end ;
node := node.getnext ;
end ;
end ;
procedure TForm1.Button1Click(Sender: TObject);
var tn : ttreenode ;
begin
tn := getnodebytext(treeview1,edit1.Text) ;
if tn = nil then
begin
showmessage('name is not found') ;
end
else
begin
treeview1.SetFocus ;
tn.selected := true ;
end ;
end;