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

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: TObjectvar Action: TCloseAction)

begin

try

Memo1.Lines.SaveToFile(s)

except

ShowMessage('你没打开怎么保存?')

Exit

end

ShowMessage('保存成功')

end

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

memo.text就是memo中的内容。

如数据之间使用的是中文的逗号

可以

s := ansireplacestr(memo.text, '，',#13#10)

之后，

list := TStringlist.create

list.text := s

for i := 0 to list.cout - 1 do

begin

//此处逐条加入到数据库中去。

end

---