本文整理自网络，侵删。
Delphi有关文本文件的操作，经整理后，我将其封装成了一个函数，
以方便以后的使用，访函数代码如下:
//将帐号信息写入文本文件函数
procedure TForm1.WriteUserToText(user:String; pass:String);
var
txt:TextFile;
begin
//先判断一下文件是否存在, 不存在时就创建它
if not FileExists('C:\p.txt') then
begin
Assignfile(txt,'c:\p.txt'); //指定文件路径
rewrite(txt); //创建并打开一个新文件（或覆盖原有文件）
Closefile(txt); //关闭打开的文件
end;
AssignFile(txt,'C:\p.txt');
Append(txt); //以追加的方式打开文件，指针到尾
Writeln(txt,user+'--->'+pass); //写文件
CloseFile(txt); //关闭打开的文件
end;
/////////////////////////////////////////////////////////////
相关阅读 >>
Delphi winapi: getcurrentthread、getcurrentthreadid、getcurrentprocess、getcurrentprocessid
Delphi中exit,abort,break,continue,halt,runerro 的区别
Delphi debug模式下可以但是release模式下报错原因之一
更多相关阅读请进入《Delphi》频道 >>
