Listbox1 de gelen dataları ayırmak

[Armani]

Merhaba arkadaşlar
listbox da gelen dataların dataların sadece istediklerimi alma şansım varmı ?
ör.
elma
armut
kiraz
erik

Burda istedigim sadece elm ile başlayan kelimeleri almak. Diğerlerini clear yapabilir.

Teşekkürler

[hdayi]

Bir listbox, bir edit, bir de button ile bu kodu kullan. Edit'e aradığın string'i yaz butona bas.

Kolay gelsin...

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var i, j: integer;
begin
j:=0;
  for i:=0 to ListBox1.Items.Count-1
  do begin
      if Edit1.Text<>copy(ListBox1.Items[i-j],0,Length(Edit1.Text))
      then begin
          ListBox1.Items.Delete(i-j);
          inc(j);
      end;
  end;
end;

[vedatkaba]

List boxta Multiselect özelliğini true yaptıktan sonra

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
for i:=0 to listbox1.Items.Count-1 do
begin
if listbox1.Selected[i] then /// seçişmiş ise
listbox2.Items.Add(listbox1.Items.Strings[i]);
end;
end;
end.

Kolay gelsin...

[Armani]

hdayi teşekkürler
ancak elm ile başlayan kelimelerin hepsini getirmek amacım
sadece yazdıgımı değil
sizin ko da elma yazdıgım takdirde elmayı getiriyor.
Benim istedigim ise el yazınca el ile başlayan tüm dataları getirmesi

Teşekkürler

[Armani]

hdayi
özür dilerim
ben yanlış yapmışım
kod başarılı
teşekkürler ilgine

[Armani]

hdayi
özür dilerim
ben yanlış yapmışım
kod başarılı
teşekkürler ilgine

[hdayi]

Rica ederim de aynı mesajı iki sefer yazmışsın...

Kolay Gelsin...