Delphi Listboxt'ta String Arama

[E-Tardis]

Selamın aleykum FOTR Ailesi

Bugun sizlere Delphi listbox'da string aramayı göstericem 

Kodlarımız;


PHP Kod:

Kod: Tümünü Seç Tümünü Kopyala

var
c:integer;
begin

for c := 0 to Listbox1.items.Count -1 do// Bu döngü sayesinden bütün itemleri kontrol edebileceğiz.


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; 

[ızmarit]

Teşekkürler

[E-Tardis]

Rica edeirm