把edit1.text内容加入listbox1内,如果edit1内容与listobx1内相同,则不加入?listbox1=====================
A
B
C
====================在edit1内输入A时,不加入listobx1内.

解决方案 »

  1.   

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

  2.   

    procedure TForm1.Button1Click(Sender: TObject);
    var n:integer;
    begin
    for n:=0 to listbox1.Items.Count-1 do begin
       if listbox1.Items.Strings[n]=edit1.Text then exit;
    end;
    listbox1.Items.Add(edit1.Text);
    end;
      

  3.   

    把edit1.text内容加入listbox1内,如果edit1内容与listobx1内相同,则不加入?listbox1=====================
    A
    B
    C
    ====================在edit1内输入A时,不加入listobx1内.
    结分了。如果listbox1 换成listview1呢?
    怎样判断加入listview1.