delphi 对文件的基本打开关并读写操作 Rewrite、Append、Reset

最新推荐文章于 2022-10-19 21:29:23 发布

VIP文章我欲混吃与等死

最新推荐文章于 2022-10-19 21:29:23 发布

阅读量3.5k

点赞数

分类专栏： delphi 文章标签： delphi

本文链接：https://blog.csdn.net/zhouky1993/article/details/58158810

版权

首先，新建一个按钮，双击点进去后编写代码：

procedure TForm1.btn_CreatFileClick(Sender: TObject);
var
  zky_Text:TextFile;// var <文件变量名>：TextFile；定义一个文本文件变量
  zky_s1:string;
  zky_s2:string;
  i:Integer;
begin
  zky_s1:='this is line #';
  ///
  //AssignFile(<文件变量名>,'<要关联的文件地址>');
  //将文件变量与要操作的文件关联
  ///
  AssignFile(zky_Text,'C:\Users\linyd09611\Desktop\111.txt');

  ///
  //打开文件有Rewrite、Append、Reset三种方式。
  //操作完后，都需使用CloseFile关闭文件。
  ///

  ///
  //Rewrite(<文件变量名>)；
  //若无该文件，则创建文件。
  //若有该文件，覆盖掉原文件。
  //打开文件后，可以对文件内容进行写操作。
  //
  zky_s2:=' for rewrite';
  Rewrite(zky_Text);
  for i:=1 to 2 do
  begin
    Writeln(zky_Text,zky_s1,i,zky_s2); //对文本写入一行数据
  end;
  CloseFile(zky_Text);//关闭文件
  ShowMessage('creat over');

  ///
  //Append(<文件变量名>);
  //打开已存在的文件，对其追加文本，
  //若文件不存在，会产生I/O错误。