当前位置:学Delphi网文档资料技术资料其他

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

减小字体 增大字体 作者:佚名  来源:不详  发布时间:2011-03-09 15:56:01

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

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 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;

Tags:

作者:佚名
  • 好的评价 如果您觉得此文章好,就请您
      100%(2)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论

广告位置B