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

本文整理自网络，侵删。

 
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);
Var
F : Textfile;
Begin
if 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);
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 AppendTxt(Str:String;FileName:String);
Var
   F:Textfile;
Begin
AssignFile(F, FileName);
Append(F);
Writeln(F, Str);
Closefile(F);
End;
――――――――――――――――
原文链接：https://blog.csdn.net/fkedwgwy/article/details/5158053

 

相关阅读 >>

Delphi winapi: getwindowtext - 获取窗口标题

Delphi 返回下载地址的文件名

Delphi 播放声音 采用 异步方式，比较流畅

Delphi 字符串连接

Delphi中让图片大小随timage控件大小变化

Delphi获取文件创建时间、文件最后修改时间

Delphi 检查程序是否在（vm，vpc等）虚拟机运行 Delphi(测试可用)

Delphi 读取image组件转换base64编码

Delphi fdmemtable1 清空

Delphi 全局钩子锁定鼠标

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 生成xml 方法 与 delphi txt文件操作