if ListBox1.Items.IndexOf(Edit1.Text)<0 then ListBox1.Items.Add(Edit1.Text);
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;
把edit1.text内容加入listbox1内,如果edit1内容与listobx1内相同,则不加入?listbox1===================== A B C ====================在edit1内输入A时,不加入listobx1内. 结分了。如果listbox1 换成listview1呢? 怎样判断加入listview1.
ListBox1.Items.Add(Edit1.Text);
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;
A
B
C
====================在edit1内输入A时,不加入listobx1内.
结分了。如果listbox1 换成listview1呢?
怎样判断加入listview1.