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

最新推荐文章于 2020-07-18 19:52:53 发布

CGGAO

最新推荐文章于 2020-07-18 19:52:53 发布

阅读量131

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/keyvip/archive/2010/11/14/1876980.html

本文介绍了一个使用Delphi进行文件操作的例子，包括创建文本文件、写入数据等基本操作。示例中定义了文本文件变量，并通过Rewrite方式打开文件，向文件中写入姓名、年龄和生日等信息。

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;

转载于:https://www.cnblogs.com/keyvip/archive/2010/11/14/1876980.html