如何在ComboBox中增加内容？(15分)

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #1

有一ComboBox框，里面有些选项，如果写入一条新的信息，自动将这条信息增加到Combobox选项中？
procedure TForm.comboboxExit();
begin
if not(Trim(combobox.text) in []) then //in 后面怎样写？？？
combobox.items.add(combox.text);

 

H

hinco

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #2

写成if combobox.Indexof(trim(combobox.text))=-1 then 即可

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #3

一语惊醒梦中人，不过语法是
combobox.items.indexof(...)=-1
不过有没高手知道用if not(Trim(combobox.text) in []) then 怎么做啊？
怎样将combobox中的内容一项项提出到in[]里面啊？
或者说用个for i;=0 to combobox.items.count-1 do循环

 

D

dobug

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #4

没用过,是不是应该这样
if not(Trim(combobox.text) in ['']) then

 

J

ji0224

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-03-11

• #5

接受答案了.