德爾福項目比較2個列表框

Question

我想知道如何比較列表框之間的項目。在我的主窗體上有兩個列表框。我想用第一個到第二個項目添加一個點擊事件，但使用它時，同一個項目會在第二個列表框中相乘。任何想法解決「文件已存在」？

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]); 

後者將用於單工作我想也是。