delphi中如何将Memo的内容保存到txt文件中？？谢谢您的指教

var

tfile:textfile

//txt文件必须保存在当前目录下�

bedin

AssignFiletfile,extractfiledirapplication.ExeName)+'\test.txt')

Append(tfile)

Writeln(tfile,memo1.lines.text)

Closefile(tfile)

end

2。memo1.lines.savetofile('路径\test.txt')

memo1.Lines.SaveToFile(‘打开文件时的路径文件名’)

另存，

memo1.Lines.SaveToFile(opendialog的新路径文件名)

回答完毕，谢谢。。。。。。。

2、设置timer1属性，interval=1000(1秒)

双击Timer1，编写代码：

procedure TForm1.Timer1Timer(Sender: TObject)

var

fileName:String

begin

memo1.Lines.Clear

fileName:='C:\WINDOWS\Temp\a.txt'

//如果文件存在

if fileExists(fileName) then

memo1.Lines.LoadFromFile()

end