Delphi中读写TXT文件的一段代码


本文整理自网络,侵删。

Delphi中读写TXT文件的一段代码,对这方面不会的朋友,参考下:

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 TForm1.Button1Click(Sender: TObject);
begin
 NewTxt;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
 OpenTxt;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
 ReadTxt;
end; 
------------------------------------------------------------------
Procedure AppendTxt(Str:String;FileName:String);
Var
  F:Textfile;
Begin
  AssignFile(F, FileName);
  Append(F);
  Writeln(F, Str);
  Closefile(F);
End;

相关阅读 >>

Delphi使用ixmlhttprequest 简单获取网页源代码

Delphi webbroker 上传文件

Delphi rewrite 以可写方式打开文件

Delphi 提取字符串左侧内容

Delphi 如何从文本内容中删除指定行

Delphi excel操作,写了个adodataset转excel的函数

Delphi 如何把字符串覆给数组

Delphi xe5开发的android手机截屏功能

Delphi循环遍历同类控件或所有控件

Delphi 时间转换为gmt格式

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...