文件磁盘相关函数[22]-文本文件读写-不同数据类型的写入

procedure TForm1.Button10Click(Sender: TObject);
var
  name: string[6];
  age: Word;
  birthday: TDate;
  fvar:TextFile;  //声明文本文件变量
  f: string;
begin
  f:='f:\test\Test.txt';
  AssignFile(fvar, f);
  Rewrite(fvar);

  name := '菜花  ';  //加两个空格凑够6个字符
  age := 18;
  birthday := StrToDate(DateToStr(Now-18*365));  //假如她今天过生日
  Writeln(fvar,name,age,birthday);

  CloseFile(fvar);
end;