文件磁盘相关函数[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;