delphi 生成xml 方法与 delphi txt文件操作

最新推荐文章于 2021-09-09 11:28:16 发布

潇湘博客

最新推荐文章于 2021-09-09 11:28:16 发布

阅读量3.6k

点赞数

分类专栏： DELPHI技术文章标签： delphi xml string encoding

本文链接：https://blog.csdn.net/fkedwgwy/article/details/5158053

版权

这篇博客介绍了如何在Delphi中生成XML文件和进行TXT文件操作，包括创建新文件、删除已存在文件、写入内容以及读取文件内容。提供了四个过程：Button1Click用于生成XML文件，NewTxt用于创建新TXT文件，OpenTxt用于追加内容到TXT文件，ReadTxt用于读取TXT文件内容。

摘要由CSDN通过智能技术生成

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); {看文件是否存在,在就刪除}

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

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

  Writeln(F, xmlstr);

  Closefile(F); {关闭文件 F}

End;







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 文件&