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

Procedure TForm1.Button1Click(Sender: TObject);

Var

xmlstr,FileName: String;

f: Textfile;

Begin

xmlStr := '';

xmlstr := xmlstr + '张三男';

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 文件');

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 生成xml 方法 与 delphi txt文件操作

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