好像下面的问题很难实现耶！希望有好心哥哥进来帮我^_^！(0分)

哥哥们，现在想实现一下功能：要求：不写数据库，只是将在edit里面输入的内容写进文件
现在有两个问题：
（1）var s:TstringList;
begin
s:=TstringList.create;
s.text:=edit1.text;
s.savetofile('E:/file.txt');
s.free;
end;
现在比如有个dbcombobox1和edit1，我首先在edit1里面输入：剧情类
然后在dbcombobox1里面下拉框里就出现“剧情类”这项选择，但是现在有两个问题出现
比如我想再输入一个“电影类”此时想在下拉框里面是 剧情类
电影类
但是出来是 剧情类电影类 我知道原因但是那个#13在哪加我不会。
（2）第二个问题是，我如果实现（1）功能了但是关闭系统后第二次运行里面的
dbcombobox1里面的东西没有了！请问我该如何做到第二次运行依然有上次添加的
两项：剧情类 电影类呢？
小女子没有分！但是真的很希望有哥哥可以帮我^_^！
万分感谢

dbcombobox1.items.add("内容");

1.dbcombobox1.items.add(edit1.text);
2.
combobox1.Items.SaveToFile(文件名);
combobox1.Items.LoadFromFile(文件名);
这几天好象很多自称是女孩子的人在问问题，不知道真假！！
[][][]

呵，呵！！大家都知道这里的DFW GG们都是色色的拉！ 哈~~~~~~~~~~

var s:TstringList;
^^^^^^^^^^^^^^^^^^^

不要这么夸张的定义吧

很简单啦[]
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
procedure Button1Click(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Append(Edit1.Text);
end;

procedure TForm1.FormShow(Sender: TObject);
begin
if fileexists('c:/items.txt') then
begin
ComboBox1.Items.LoadFromFile('c:/items.txt');
ComboBox1.Text := ComboBox1.Items.Strings[0];
end else
ComboBox1.Text := '';
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile('c:/items.txt');
application.Terminate;
end;

end.

to milesg 哥哥和其他哥哥们
嗯嗯！谢谢哥哥们！现在出现了一个很难的问题了！就是如何在文件中删除添加的
类型呢？比如上面我要删除剧情类应该怎样做呢？

combobox1.delete[combobox1.itemindex]
combobox1.savetofile(aa.txt)

to 诸葛哥哥，请问那个itemindex要设为多少才对呢？谢谢^_^！

看这里
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
ComboBox1: TComboBox;
Button1: TButton;
Button2: TButton;
procedure FormShow(Sender: TObject);
procedure FormClose(Sender: TObject;
var Action: TCloseAction);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormShow(Sender: TObject);
begin
if fileexists('items.txt') then
begin
ComboBox1.Items.LoadFromFile('items.txt');
ComboBox1.Text := ComboBox1.Items.Strings[0];
end else
ComboBox1.Text := '';
end;

procedure TForm1.FormClose(Sender: TObject;
var Action: TCloseAction);
begin
ComboBox1.Items.SaveToFile('items.txt');
application.Terminate;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
ComboBox1.Items.Append(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
var
i: integer;
finditem: boolean;
begin
i := 0;
finditem := false;
while (not finditem) and (i < ComboBox1.Items.Count)do
begin
if ComboBox1.Items.Strings = Edit1.Text then
finditem := true
else
inc(i);
end;
if finditem then
ComboBox1.Items.Delete(i);
end;

end.

gz mmMMMMMMMMMMMMMMMMMMM