再问一个简单的问题(20分)

嫩

嫩手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #1

combobox1它的item中有30个值，我想在edit中输入其中一个值，怎么写代码实现combobox
它的text值同edit 的text值一样呢？
如:combobox1.item值：
aa
bb
cc
dd
...
我在edit中输入cc，combobox1它的text值也跟着变成cc
注：combobox1.style是csDropDownList

 

J

jieson

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #2

combobox.itemindex 属性
第一个是0，下面递增

 

Y

yanghai0437

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #3

for i:=0 to combox1.items.count-1 do
begin
if edit1.text=combox1.items.string then
combox1.itemindex=i
end

 

C

Co1230

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #4

在Edit1的onkeypress事件中：
combox1.itemindex := Combox1.items.indexof(Trim(Edit1.text))

 

嫩

嫩手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #5

不行呀，是空的
注：combobox1.style是csDropDownList

 

Q

quickchop

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #6

你这个想法有问题。应该是在combox中选定某个值，然后Edit跟着变化。要不然有很多麻烦。
第一：在edit中不知道combox中有什么，知道也麻烦，记不注。
第二：在edit中要严格输入跟combox中一样的东西，这未免也太刁难人了吧。

 

S

shbjkl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #7

[!][][][][]

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-01

• #8

[8D][8D][8D][8D][8D][8D][8D]
procedure TForm1.Edit1Change(Sender: TObject);
var
i:integer;
begin
for i:= 0 to combobox1.Items.Count do
begin
combobox1.itemindex :=i;
combobox1.Text :=combobox1.items[combobox1.itemindex];
if edit1.Text =combobox1.text then
begin
combobox1.Text :=combobox1.items[combobox1.itemindex];
break;
end
else
combobox1.text :='';
end;
end;
[8D][8D][8D][8D][8D][8D][8D]

 

嫩

嫩手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #9

你这个总是得到最后一个，得不到想要的数据，能再帮帮看看吗？

 

K

kingdeezj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-28

• #10

procedure TForm1.Edit1Change(Sender: TObject);
var
i:Integer;
begin
for i:=0 to ComboBox1.Items.Count-1 do
begin
if ComboBox1.Items=Edit1.Text then
begin
ComboBox1.ItemIndex:=i;
exit;
end;
end;
end;

 

D

dragonlee007

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #11

我測試很正常呀!!!so simple!!!you do
n't want to give me score,haha
you are wrong. please test it yourself.
[8D][8D][8D][8D][8D][8D][8D]
[8D][8D][8D][8D][8D][8D][8D]

 

C

Co1230

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-29

• #12

在Edit1的onkeypress事件中：
combox1.itemindex := Combox1.items.indexof(Trim(Edit1.text))
这样是可以的,你的combox1中必须有你在edit1中输入的值,因为上一语句的作用是,每键入
一个字符,就在combox1中查找一下,有没有匹配的,如果有就设为combox1的当前值.
我没有测试过,具体你自己试试就知道了

 

B

boyface

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #13

gz

 

人

人在昆明

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #14

indexof

 

G

gwdb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-30

• #15

很简单
procedure TForm1.Edit1Change(Sender: TObject);
begin
ComboBox1.itemindex := ComboBox1.items.indexof(Edit1.text);
end;

 

曾

曾经

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-10-31

• #16

procedure TForm1.Edit1Change(Sender: TObject);
begin
ComboBox1.itemindex:= ComboBox1.items.indexof(Edit1.text);
end;

 

嫩

嫩手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-06

• #17

如果在Button事件中怎么写？

 

R

Richard3000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-07

• #18

曾經的好!
簡潔!
不要用onkeypress因為它是先執行貸嗎,在得到Key

 

嫩

嫩手

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2002-11-08

• #19

算了，还是发分吧，希望以后有更好的办法告诉我