Delphi Listboxt'ta String Arama

Bu derste Delphi'de Listbox'ta String aramayı öğreneceğiz.

Bu derste Delphi'de Listbox'ta String aramayı öğreneceğiz.

Delphi Listboxt'ta Arama yapmak için;

Öncelikle 1 Adet Buton Ekliyoruz ve Click olayına şu kodları yazıyoruz;


var

c:integer;

begin



for c := 0 to Listbox1.items.Count -1 do// Bu döndü sahyesinden bütün itemleri kontrol edebiliceğiniz.





if Pos(Edit1.text,Listbox1.items.string[c])>0 then

Showmessage('Evet Böyle bir Kayıt mevcut');



//Burda ne yaptık?

//Edit1.text'te yazan stringi i döngüsü ile Listbox1'de arattık.

Böyle bi kayıt var ise 'Evet Böyle bir Kayıt mevcut' demesini istedik.



end;

end;




Umarım işinize yarar.
  • Etiketler;
Yorum Yaz

Yorum yazabilmek için üye girişi yapmanız gerekiyor!

Yukarı Git