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