Arşiv Anasayfa Delphi Soruları
Sayfalar: 1
Edit ile ListBox-da Arama Nasil Yapilir Gönderen: Subhan Tarih: 09 May 2008 11:24:56
Selam

Ben forma listbox1 ve edit1 koydum listbox-da olan dosyalari nasil edit1-de araticaz islem boyle olucak
listbox1-da 100 dosya var ve edit-de yazilan kelmeyi listbox-da bulucak  listbox-da bu dosya var diyelim(AAAA) ve edit-te (AAAA) yazinca listbox-da (AAAA)dosyasinin uzerine gelicek

Mumkunse winamp-da ki gibi arama yontemi bilen varsa anlata bilirmi
Ynt: Edit ile ListBox-da Arama Nasil Yapilir Gönderen: barutali Tarih: 09 May 2008 11:29:30

procedure TForm1.Button1Click(Sender: TObject);
begin
listbox1.ItemIndex:=ListBox1.Items.IndexOf(Edit1.Text);
end;
 
end.

kolay gelsin ..
Ynt: Edit ile ListBox-da Arama Nasil Yapilir Gönderen: SelçuK Tarih: 09 May 2008 11:45:16
procedure TForm1.Button1Click(Sender: TObject);
Var
I : Integer;
Found : Boolean;
begin
Found:=False;
For I:=0 to ListBox1.Items.Count-1 do
If Edit1.Text=Copy(ListBox1.Items[I],1,Length(Edit1.Text)) then
Begin
Found:=True;
Break;
End;
If Found Then ListBox1.ItemIndex:=I;
end;
end.
 

Ynt: Edit ile ListBox-da Arama Nasil Yapilir Gönderen: Subhan Tarih: 09 May 2008 13:15:03
Barutali ve Selcuk abi bu arama olayini winamp-da ki gibi yapamayizmi

listbox1-de 100 dosya var edit1 , listbox2 ,  button1, var
edite kelime kirince listbox2 de gostericek edit bire yazilan kelmeyi aynan bulmasi editde
olan kelmeye uygun olanlaride bulsun

diyelimki
 listbox1 iceriyi

dosya
dosya1
dosya2
dosya3
dosya4

edite dosya yazinca sadece dosyayi bulmasin (dosya1,dosya2,dosya3,dosya4,) bulsun

tesekurler