文件磁盘相关函数[19]-文本文件读写-读取全部的实现

procedure TForm1.Button7Click(Sender: TObject); //读取全部
var
  fvar:TextFile;  //声明文本文件变量
  f,s: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar,f);  //变量与文件建立关联
  Reset(fvar);  //只读打开
  Memo1.Clear;
  while not Eof(fvar) do  //如果不是文件末尾(用eof函数判断)就一直循环
  begin
    Readln(fvar, s);    //读取一行
    Memo1.Lines.Add(s);
  end;

  CloseFile(fvar);   //全部读取后关闭文件

end;