錯誤，當從列表框到創建設置中的列表框

Question

我試圖從列表框1添加項目到列表框2防止重複，我從我的問題Prevent duplicate items in list box and combo box in Inno Setup?（作品完美傳遞一個接一個）代碼，我想通過此時所有項目都按下「>>」（將ListBox1上的項目傳遞給ListBox2（無克隆列表框））。

，並得到該上buttonClick

下面的代碼：

procedure botonDerechaTodos(Sender: TObject); 
begin 
    if (listBoxMonedasDisponibles.ItemIndex >= 0)then 
    begin 
     if listBoxMonedasSecundarias.Items.IndexOf(listBoxMonedasDisponibles.Items[listBoxMonedasDisponibles.ItemIndex]) < 0 then 
     listBoxMonedasSecundarias.Items.Add(listBoxMonedasDisponibles.Items[listBoxMonedasDisponibles.Items]); 
     listBoxMonedasDisponibles.Items.Delete(listBoxMonedasDisponibles.Items);  
     comboBoxMonedaPrincipal.Items := listBoxMonedasSecundarias.Items; 
     comboBoxMonedaPrincipal.ItemIndex := 0; 
     listBoxMonedasSecundarias.ItemIndex := 0;    
    end; 
end; 

Answer 1

您的代碼包含一個錯誤。你通過Items而不是ItemIndex。

你有

listBoxMonedasSecundarias.Items.Add(listBoxMonedasDisponibles.Items[listBoxMonedasDisponibles.Items]); 

應該

listBoxMonedasSecundarias.Items.Add(listBoxMonedasDisponibles.Items[listBoxMonedasDisponibles.ItemIndex]); 

你有一個類似的錯誤在這裏：

listBoxMonedasDisponibles.Items.Delete(listBoxMonedasDisponibles.Items); 

應該

listBoxMonedasDisponibles.Items.Delete(listBoxMonedasDisponibles.ItemIndex); 

針對您的評論提出的問題，使用AddStrings（我不是鍵入所有這些長變量名）：

ListBoxDest.Items.AddStrings(ListBoxSource.Items); 
ListBoxSource.Items.Clear;