Question

怎样在Delphi的memo中保存用户自行添加的文字？

无论在memo输入数据，或者在edit1那里输入数据再点击添加进去memo框格，关闭该工程文件后再打开，发现没有保存到输入的数据。当时编写的程序代码如下：
procedure TForm1.Button1Click(Sender: TObject);
begin
memo1.Lines.Add(' '+edit1.text);
edit1.Text :='';
edit1.SetFocus ;
end;

Answer 1

var
s:string;
procedure TForm1.Button1Click(Sender: TObject);
begin
if OpenDialog1.Execute Then
begin
s:=OpenDialog1.FileName ;
memo1.Lines.LoadFromFile(s);
end;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
try
Memo1.Lines.SaveToFile(s);
except
ShowMessage('你没打开怎么保存?');
Exit;
end;
ShowMessage('保存成功');
end;

配合OpenDIalog来打开文件，楼主，建议直接在Memo中输入数据比较方便，按钮用来打开文件，关闭时要用Memo1.lines.SaveToFile(文件名)来保存文件，如果想要另存为的话，那么就加个SaveDialog就行了，望采纳

Answer 2

Memo1.lines.add只是保存当前数据到内存里了，没有保存到文件或数据库中；
退出程序前要做个saveinifile的工作，把当前的内容保存下来；
下次启动时再做个readinifile，把上次的数据load进memo.line.text 中。

Answer 3

那样你得将MEMO里的内容保存到一个文本文档里去吧,然后打开的时候自动加载文档里的内容...
不然没有这个存储过程,程序使用时只占用内存的,程序关闭内存释放,什么东西都不会留下....