用add的方法,添加时候,判断一下有没有重复的,给你一段bcb的代码,结束的时候用SaveToFile的方法保存。
解决方案 »
- fastreport 数值比较的问题
- 如何根据用户权限设置mainmenu显示与否……
- 谁在啊,为什么 newnashuifrm.ManualDock(Panel3, nil, AlClient);创建出来的vclskin失效了?有没有解决办法?
- 谁能帮我解决这个问题?先谢了...
- 用RAVE做打印,不能打印报表中的某几页吗?
- ***关于indy的Tcpclient读取服务端发的信息的问题。***
- 数据库事务问题
- 各位大虾好,我是新来的菜鸟,有一个关于dbcombobox的问题
- 谁能提供一些搞笑照片的网址
- 求教:通过ADO访问ACCESS2000数据库,如何提高查询速度?
- 一个delphi问题!
- Kingron在吗?我找你有事,关于小组的。
//判断列表中是否有重复
if(ComboBox1->ItemIndex==-1)
{
for (int i=0;i<ComboBox1->Items->Count;i++)
{
if (ComboBox1->Text != ComboBox1->Items->Strings[i]){j=0;break;}
else j=1;
}
}
if(j==ComboBox1->Items->Count)ComboBox1->Items->Add(ComboBox1->Text);
int j=0;
//判断列表中是否有重复
if(ComboBox1->ItemIndex==-1)
{
for (int i=0;i<ComboBox1->Items->Count;i++)
{
if (ComboBox1->Text != ComboBox1->Items->Strings[i]){j=0;break;}
else j=1;
}
}
if(j)ComboBox1->Items->Add(ComboBox1->Text);
MaxCount=20
CurCount=8
1=...
2=...
...
8=...
2、在ComboBox的OnExit中如下处理(你也可根据你的需要在其他地方执行):
procedure TForm1.ComboBox1Exit(Sender: TObject);
var s: String;
begin
s := Trim(Combobox1.Text);
Combobox1.Text := s;
If s = '' Then Exit; With Combobox1.Items Do
If IndexOf(s) < 0 Then
Begin
If Count = MAXCOUNT Then Delete(0);
Combobox1.Items.Add(s);
End;
end;