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

代码如下：

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只读方式打开文件后请不要执行写操作，否则会出错！