文件磁盘相关函数[21]-文本文件读写-分列读入

procedure TForm1.Button9Click(Sender: TObject);
var
  name: string[8];
  address: string[16];
  fvar:TextFile;  //声明文本文件变量
  f: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar, f);
  Reset(fvar);

  Memo1.Clear;
  while not Eof(fvar) do
  begin
    Readln(fvar, name);
    Memo1.Lines.Add(name);
  end;

  CloseFile(fvar);
  Reset(fvar);

  while not Eof(fvar) do
  begin
    Readln(fvar, name, address);
    Memo1.Lines.Add(address);
  end;

  CloseFile(Fvar);
{读取结果:
  张三
  李四儿
  王二麻子
  山东泰安
  贵州省安顺黄果树
  北京市海淀区
}
end;