Bu Hata Neden Oluyor ? - ÇÖZÜLDÜ

[akissoftware]

2 tane listbox var. 1.listboxta 1,5,9,15 gibi rakamlar var. Ben 1 den 20 ye kadar sayıları listbox2 ye aktarmak istiyorum. Fakat listbox1 de olanlar listbox2 de olmaması gerekiyor. Kod böyle

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
For i:=0 to 8 do begin
if inttostr(i) = ListBox1.Items[i] then begin
listbox2.Items.Add(ListBox1.Items[i]);
end;
end;
end;

ama çalışmıyor.... aşağıdaki şekilde kullanınca listbox1 deki elemanları listbox2 ye aktarıyor. Nerde hata yapıyorum ?

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin
i:=0;
For i:=0 to 8 do begin
if inttostr(i) <> ListBox1.Items[i] then begin
listbox2.Items.Add(ListBox1.Items[i]);
end;
end;
end;

[ikra]

Kod: Tümünü seç

procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;
begin 
  for i := 0 to 8 do
    if ListBox1.Items.IndexOf(IntToStr(i)) = -1 then // eger ListBox1'in icinde böyle bir rakam yoksa
      listbox2.Items.Add(IntToStr(i)) // ListBox2'ye ekle
    else // var ise
      ShowMessage(IntToStr(i)+' Rakami ListBox1 icinde mevcut');
end;

[akissoftware]

Ellerin dert görmesin. Tam olarak istediğim buydu... Teşekkürler