treewiev1 de bul

[delphikursu]

edit kullanarak treewiev de arama nasıl yapacağımı bilmiyorum

[muskut]

Pek verimli bir kod değil ama çalışıyor Optimize eder kullanırsın

procedure TForm1.Button1Click(Sender: TObject);
var
s: TStringList;
i: integer;
begin
s := TStringList.Create;
for i := 0 to TreeView1.Items.Count - 1 do
begin
if TreeView1.Items.Item.Text = Edit1.Text then
begin
TreeView1.Items.SelectedIndex := i;
break;
end;
end;
showmessage(TreeView1.Items.Item[TreeView1.Items.SelectedIndex].Text);
end;


selametle..