Listbox daki aynı verileri silmek istiyorum

[Commandx]

Herkese kolay gelsin
Öncelikle ilk olarak sorunumla ilgili konuları forumda arattırıp çözüm bulamadım
bu yüzden konu açma gereği gördüm kimse kızmasın :
Sorunum şu forma yerleştirdiğim bir liste kutusuna sürekli veri ekleniyor fakat bu veriler bazen harf bazen rakam
bazıları farklı bazıları aynı olabiliyor
ne olduğu önemli değilde çift verileri silmek istedimse olmadı
yapmak istediğim şey listboxa gelen aynı verileri bir buton aracılığıyla aynı kayıtların silinmesini , yani
sadeleştirmek istiyorumda bir türlü for do while döngüsü kuramadım (en zayıf olduğum noktada döngüler ve diziler)
alttaki gibi sıralı olmasada olur
Basit gibi görünüyor uğraştım yapamadım malesef, yardımcı olursanız sevinirim

[CiTiZEN]

veriler gösterdiğiniz resimdeki gibi sıralımı yani 1 in karşılığında aynı veri olursa 1 mi olur yoksa sırasız mı?

[Commandx]

Resimde çiftkayıtların silinmesini istiyorumda olmadı
Normalde böyle

Böyle olmasını istiyorum

[mrmarman]

Döngüye sondan 0'a yani başa doğru kurarsan başarabilirsin.

[unicorn64]

Kod: Tümünü seç

procedure TForm4.Button1Click(Sender: TObject);
var
 liste:TstringList;
 i:integer;
begin
  liste:=tstringlist.create;

  for i:=0 to listbox1.items.count-1 do
  begin
    if liste.indexof(listbox1.items[i])<0 then
       liste.add(listbox1.items[i]);
  end;
  liste.Sort;
  listbox1.items.text:=liste.text;
  liste.Free;

end;

[mrmarman]

@unicorn64'un cevabı geçerlidir. sadece döngüler ve diziler konusundaki zaafiyete değindiğin için bir de o açıdan bir örnek yazmak istedim.


Kullanımı:

Kod: Tümünü seç

Sadelestir( ListBox1 );

Kod: Tümünü seç

procedure Sadelestir( ListBox:TListBox );
Var
  i, j : integer;
begin
  i := ListBox.Items.Count-1;
  while i >= 0 do begin
    j := i-1;
    while j >= 0 do begin
      if ListBox.Items[j] = ListBox.Items[i] then
      begin
        ListBox.Items.Delete(j);
        dec(i);
      end; // if
      dec(j);
    end; // while j
    dec(i);
  end; // while i
end;