本文整理自网络,侵删。
Procedure TForm1.Button1Click(Sender: TObject);Var xmlstr,FileName: String; f: Textfile;Begin xmlStr := '<?xml version="1.0" encoding="gb2312"?>'; xmlstr := xmlstr + '<user><name>张三</name><sex>男</sex></user>'; showmessage(xmlstr); FileName:='a.xml'; If fileExists(FileName) Then DeleteFile(FileName); {看文件是否存在,在就?h除} AssignFile(F, FileName); {将文件名与变量 F 关联} ReWrite(F); {创建一个新的文件并命名为 ek.txt} Writeln(F, xmlstr); Closefile(F); {关闭文件 F}End;Procedure NewTxt(FileName:String);VarF : Textfile;Beginif fileExists(FileName) then DeleteFile(FileName); {看文件是否存在,在就?h除}AssignFile(F, FileName); {将文件名与变量 F 关联}ReWrite(F); {创建一个新的文件并命名为 ek.txt}Writeln(F, '将您要写入的文本写入到一个 .txt 文件');Closefile(F); {关闭文件 F}End;Procedure OpenTxt(FileName:String);VarF : Textfile;BeginAssignFile(F,FileName); {将文件名与变量 F 关联}Append(F); {以编辑方式打开文件 F }Writeln(F, '将您要写入的文本写入到一个 .txt 文件');Closefile(F); {关闭文件 F}End;Procedure ReadTxt(FileName:String);VarF : Textfile;str : String;BeginAssignFile(F, FileName); {将文件名与变量 F 关联}Reset(F); {打开并读取文件 F }Readln(F, str);ShowMessage('文件有:' +str + '行。');Closefile(F); {关闭文件 F}End;Procedure AppendTxt(Str:String;FileName:String);Var F:Textfile;BeginAssignFile(F, FileName);Append(F);Writeln(F, Str);Closefile(F);End;――――――――――――――――原文链接:https://blog.csdn.net/fkedwgwy/article/details/5158053
相关阅读 >>
Delphi timage保存图片到stream及从stream中取图片
更多相关阅读请进入《Delphi》频道 >>