文件磁盘相关函数[17]-文本文件读写-只读打开 Reset

weixin_30387799

于 2010-11-06 12:00:00 发布

阅读量96

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/keyvip/archive/2010/11/06/1870503.html

本文介绍了一段使用Delphi编程语言实现的简单代码，该代码演示了如何打开并逐行读取本地文本文件的内容。通过实例展示了Delphi中文件操作的基本流程，包括文件的打开、读取和关闭。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

代码如下：

procedure TForm1.Button5Click(Sender: TObject); //读取文件
var
  fvar:TextFile;  //声明文本文件变量
  f,s: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar,f);  //变量与文件建立关联
  Reset(fvar);  //只读打开
  Readln(fvar, s);   //读取
  ShowMessage(s); //显示: 第一行
  Readln(fvar, s);   //继续读取
  ShowMessage(s); //显示: 第二行
  CloseFile(fvar); //关闭文件
end;

注意！以Reset只读方式打开文件后请不要执行写操作，否则会出错！

转载于:https://www.cnblogs.com/keyvip/archive/2010/11/06/1870503.html