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

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

  Readln(fvar,name,age,birthday);
  Memo1.Clear;
  Memo1.Lines.Add(name);
  Memo1.Lines.Add(IntToStr(age));
  Memo1.Lines.Add(DateToStr(birthday));

  CloseFile(fvar);

{读取结果:
  菜花
  18
  1989-12-23
}
//其实这样的东西应该用类型文件操作更合适, 但如果有这样的文本文件让你读取呢?
end;