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;
posted on 2010-11-14 14:59  巅枫  阅读(309)  评论(0)    收藏  举报