删除ITEMS中的一个元素的代码

 j:=-1;
          for i:=0 to  DBComboBoxEh1.Items.Count-1 do
          begin
            if  DBComboBoxEh1.Items[i]=strTemp then
            begin
              j:=i;
              break;
            end;
          end;
          if j>=0 then
            DBComboBoxEh1.Items.Delete(j);
          if DBComboBoxEh1.Items.Count>0 then
          begin
            DBComboBoxEh1.ItemIndex:=0;
            DBComboBoxEh1.OnCloseUp(nil,true);
          end;