델파이 항목은 두 목록 상자간에 비교됩니다.

Question

목록 상자간에 항목을 비교하는 방법을 알고 싶습니다. 내 주요 양식에는 두 개의 목록 상자가 있습니다. 클릭 이벤트로 1 위부터 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]); 

단일 위해 작동 후자 너무 선택하십시오.