想知道ComboBox的Text中的值是否存在于ComboBox的Items中,ComboBox的Items中的值是从注册表中读出来的。如果不存在就将该值写入注册表,如果存在则退出。如何实现呢?
解决方案 »
- 关于在delphi 内 判断sql2000中是否存‘a’临时表
- INDY TCP控件的问题
- 如何获得当前光标所在程序的edit框的handle?
- 求助:Delphi中的SQL语句不能运行了!!!!
- 按照FrameSniper(§坐拥书城铸内秀§) 兄弟的意思,把他给我的500分散给大家!谢谢他,谢谢你们,谢谢Delphi的兄弟姐妹们!(之三),请
- 请问各位使用什么数据库???
- 有关在WIN2000下关机的问题
- 敢问大侠...
- 求解DELPHI问题 救急啊 帮帮忙 万分感激啊
- 快看zswang有好大一条虫(函数Calc)
- 关于文本文件读取的问题?
- 怎样实现从TFileListBox向“我的电脑”即Explore中拖拉文件
...
i:integer;
begin
for i:=0 to combobox1.Items.Count-1 do
begin
if combobox1.Items.Strings[i]=combobox1.Text then
showmessage(combobox1.Text);
end;
end;
你看看这段代码,然后再试试看吧
VAR
I:INTEGER;
begin
FOR I:=0 TO C2.Items.Count-1 DO
BEGIN
IF C2.Items.Strings[I]=C2.Text THEN
BEGIN
BREAK;
END;
END;
if i=C2.Items.Count then
C2.Items.Add(C2.Text);
//写入注册表
end;
VAR
I:INTEGER;
begin if C2.Items.IndexOf(C2.Text)<0 then
C2.Items.Add(C2.Text);
//写入注册表
end;
procedure TForm1.Button1Click(Sender: TObject);
begin if C2.Items.IndexOf(C2.Text)<0 then
C2.Items.Add(C2.Text);
//写入注册表
end;
在
else
不在