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