Элементы Delphi сравниваются между 2 списками

Question

Я хочу знать, как сравнивать элементы между списками. В моей основной форме есть два списка. Я хочу добавить элемент с 1 по 2 с событием клика, но при его использовании один и тот же элемент будет умножаться на 2-й список. Любая идея решить "Файл уже существует"?

procedure TForm1.Button1Click(Sender: TObject); 
var 
    i: integer; 
begin 
    for i := ListBox1.Items.Count - 1 downto 0 do 
    if ListBox1.Selected[i] then      
     ListBox2.Items.Add(ListBox1.Items.Strings[i]); 
end; 

Answer 1

Если у вас есть один-listbox1 выберите:

if Listbox2.Items.IndexOf(Listbox1.Items[Listbox1.ItemIndex]) = -1 then 
begin 
    // Doesn't exist yet. Safe to add 
end; 

Для множественного выбора (что ваш код, кажется, подразумевает):

for i := 0 to ListBox1.Items.Count - 1 do 
    if (ListBox1.Selected[i] and (ListBox2.Items.IndexOf(ListBox1.Items[i]) = -1) then      
    ListBox2.Items.Add(ListBox1.Items[i]); 

Последняя будет работать на одно- выбор тоже, думаю.