delphi如何向txt写数据

在窗体上建立以个memo组件

memo的lines属性有一个loadfromfile 和savetofile 属性 用这两个属性可以很容易的读写txt文件

不明白的话可以给我发邮件 我给你范例

我邮箱 luyanchao562759534@126.com

Procedure NewTxt(FileName:String)

Var

F : Textfile

Begin

if fileExists(FileName) then DeleteFile(FileName){看文件是否存在,在就删除}

AssignFile(F, FileName){将文件名与变量 F 关联}

ReWrite(F){创建一个新的文件并命名为 ek.txt}

Writeln(F, '将您要写入的文本写入到一个 .txt 文件')

Closefile(F){关闭文件 F}

End

Procedure OpenTxt(FileName:String)

Var

F : Textfile

Begin

AssignFile(F,FileName){将文件名与变量 F 关联}

Append(F){以编辑方式打开文件 F }

Writeln(F, '将您要写入的文本写入到一个 .txt 文件')

Closefile(F){关闭文件 F}

End

Procedure ReadTxt(FileName:String)

Var

F : Textfile

str : String

Begin

AssignFile(F, FileName){将文件名与变量 F 关联}

Reset(F){打开并读取文件 F }

Readln(F, str)

ShowMessage('文件有:' +str + '行。')

Closefile(F){关闭文件 F}

End

procedure TForm1.Button1Click(Sender: TObject)

begin

NewTxt

end

procedure TForm1.Button2Click(Sender: TObject)

begin

OpenTxt

end

procedure TForm1.Button3Click(Sender: TObject)

begin

ReadTxt

end

------------------------------------------------------------------

Procedure AppendTxt(Str:StringFileName:String)

Var

F:Textfile

Begin

AssignFile(F, FileName)

Append(F)

Writeln(F, Str)

Closefile(F)

End

---