dbcombobox的使用

Question

举例如下
dbcombobox中items有以下几个值
a 
b
c
d
如何判断再次输入的数值items中是否有,如没有则添加到items中
例如:
当在dbcombobox中输入的值为f时,判断items中没有则把f添加到items中,现在items中的内容则变成了
a
b
c
d
f

Answer 1

procedure Tiefm.DBComboBox1Change(Sender: TObject);
var
 i:integer;
begin
  for i:=0 to dbcombobox1.Items.Count do
    if dbcombobox1.Items[i]=dbcombobox1.Text then
      showmessage('此值已存在!')
      else
end;

Answer 2

  if dbcombobox1.items.IndexOf(Trim(dbcombobox1.Text)) >= 0 then
    showmessage('此值已存在!'
  else

Answer 3

for i:=0 to dbcombobox1.Items.Count  - 1 do
   
另外 if 后 如果查到了则退出循环，要不循环还会继续

Answer 4

procedure TForm1.Button9Click(Sender: TObject);
var
  exists: boolean;
  i: integer;
begin
  exists := true;
  for i := 0 to DBComboBox1.items.count - 1 do
    if DBComboBox1.Items.Strings[i] = DBComboBox1.Text then
      break
    else
      exists := false;
  if exists = false then
    DBComboBox1.Items.Add(DBComboBox1.Text);
end;