我写的总提示出错,麻烦大哥们写几句,
将ComboBox中的内容添加到ListBox中,如果ListBox中有该条目就不添加。
很简单,但我写的总在运行有提示出错。谢谢

解决方案 »

  1.   

    begin
      for i := 0 to Combobox.count -1 do begin
       if listBox1.indexof(combobox.Strings[i]) = -1 then
        listBox1.items.add(Combobox.Strings[i]);
      end;
    end;不知道有沒有錯。直接手寫的。
      

  2.   

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

  3.   

      if ListBox1.Items.IndexOf(Combobox1.Text)<0 then
        ListBox1.Items.Add(Combobox1.Text);