var
I, B: Integer;
begin
B := ListBox1.Items.Count; //listboxın eleman sayısını degıskene yazdır
for I := 0 to I < B do //listbxu dolaş
begin
Edit1.Text := IntToStr(I); //ilk eleman texte yazdır.
if ListBox1.Selected(StrToInt(Edit1.Text)) = True then//seçilen ilk elemanı listede tarat
begin
listBox2.Items.Add(I); //listede varsa 2. listeye yaz(görmen açısından)
listBox1.Items.Delete(StrToInt(Edit1.Text)); //elemanı sil
end;
end;
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;
şöyle bir kod paylaşılmışta bu kod sadece çift kayıtları siliyor bana o silinenlerin listesi lazım