关于ComboBox ( 积分: 30 )

J

juemi2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #1

我添加了一个ComboBox组件，在他的items中添加了（猫，猪，牛）如果现在我要添加狗，但他里面没有啊，我希望添加的狗能够保存到ComboBox的items中去,所以我用了啊
if self.ComboBox.Items.IndexOf('self.ComboBox.Text')=-1 then
begin
ComboBox.Items.Add('狗') ;
ComboBox.Items.SaveToFile('动物.txt');
end;
是把狗添加到文本中去了，但是我在添加一个鸡的时候，鸡是添加进去了，可是文本里面原来的狗没有了。他只能添加一个，而且添加的爹人个在文本中会自动覆盖添加的第一个。我希望添加的东西进入文本，不会被下一个所覆盖。
请高手和大侠 不吝赐教
小弟在此谢过。。

 

H

hhjjhhjj

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #2

//大概这样可以，要不就用ini.
//添加一个memo1:Tmemo;
if self.ComboBox.Items.IndexOf('self.ComboBox.Text')=-1 then
begin
ComboBox.Items.Add('狗') ;
memo1.lines.loadfromfile('c:/xxx.txt');
memo1.lines.add(ComboBox.Text);
memo1.lines.savetofile('c:/xxx.txt');
//ComboBox.Items.SaveToFile('动物.txt');
end;

 

Y

yzxcsw

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #3

1.没必要添加一个就保存一次文件吧？
2.参考例子：
procedure TForm1.Button1Click(Sender: TObject);
begin
if ComboBox1.Items.IndexOf(ComboBox1.Text)=-1 then
combobox1.Items.Add(ComboBox1.Text);
end;

 

Y

ysp娃娃

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #4

还是用INI文件 或存注册表

 

L

lzh1983

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #5

我试了试，没有覆盖呀。

 

L

listhano

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #6

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
begin
memo1.Lines.LoadFromFile('d.txt');
ComboBox1.Items.Text:=memo1.Lines.Text;
ComboBox1.Items.SaveToFile('d.txt');
ComboBox1.Items.Add(edit1.Text);
memo1.Clear;
memo1.Lines.LoadFromFile('d.txt');
end;
试试这个，这是一个思路。

 

J

juemi2008

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2007-01-12

• #7

谢谢