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

//这个过程级函数的功能是: 用空格把 s 凑够 n 的长度
function AddSpace(s: string; n: Word): string;  //自定义函数
begin
  while Length(s) < n do
  begin
    s := s + ' ';
  end;
  Result := s;
end;

procedure TForm1.Button8Click(Sender: TObject);

var
  name: string[8];
  address: string[16];
  fvar:TextFile;  //声明文本文件变量
  f: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar,f);
  Rewrite(fvar);  //只读打开

  name := '张三';
  name := AddSpace(name,8);  //调用自定义函数处理字符串
  address := '山东泰安';
  address := AddSpace(address,16);
  Writeln(fvar,name,address); //写入一行

  name := '李四儿';
  name := AddSpace(name,8);
  address := '贵州省安顺黄果树';
  address := AddSpace(address,16);
  Writeln(fvar,name,address);  //再写一行

  name := '王二麻子';
  name := AddSpace(name,8);
  address := '北京市海淀区';
  address := AddSpace(address,16);
  Writeln(fvar,name,address);  //再写入一行

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