c# tan delphiye çeviride yardım edecek biri varmı acaba

[doktoraltun]

Kod: Tümünü seç

int b=listbox1.Items.count; //listboxın eleman sayısını degıskene yazdır
for(int i=0;i<b;i++) //listbxu dolaş
{
textBox1.Text=i.toString(); //ilk eleman texte yazdır.
if(listBox1.GetSelected(textBox1.Text) == true) //seçilen ilk elemanı listede tarat
{
listBox2.Items.Add(i); //listede varsa 2. listeye yaz(görmen açısından) 
listBox1.Items.Remove(textBox1.Text); //elemanı sil
}
}

[AliZairov]

Selam. O nasıl soru Var

Kod: Tümünü seç

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;

Şöyle bişey olması lazım.

[doktoraltun]

) çok sağolasın hocam şurda hata verdi

for I := 0 to I < B do //listbxu dolaş

[AliZairov]

Yaptırmak istediğin ne onu anlatırsan daha iyi yarımcı oluruz.

[doktoraltun]

ali hocam listboxtaki çift kayt olan satırları başka bir listboxta göstermek istiyordum

Kod: Tümünü seç

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