今天要显示delphi日期格式为"xxxx年xx月xx日"形式，原本以为格式化串就是这样写的，后来发现不行，搜索后才知是按格式"dddddd"。

参考：在Delphi中可用FormatDateTime函数的用法

function FormatDateTime(const Format: string; DateTime: TDateTime): string;

Format参数是一个格式化字符串。DateTime是时间类型。返回值是一种格式化后的字符串，重点来看Format参数中的指令字符

c以短时间格式显示时间，即全部是数字的表示 
FormatdateTime('c',now); 
输出为：2004-8-7 9:55:40

d 对应于时间中的日期，日期是一位则显示一位，两位则显示两位 
FormatdateTime('d',now); 
输出可能为1～31

dd 和d的意义一样，但它始终是以两位来显示的 
FormatdateTime('dd',now); 
输出可能为01～31

ddd 显示的是星期几 
FormatdateTime('ddd',now); 
输出为: 星期六

dddd 和ddd显示的是一样的。 
但上面两个如果在其他国家可能不一样。

ddddd 以短时间格式显示年月日 
FormatdateTime('ddddd',now); 
输出为：2004-8-7

dddddd 以长时间格式显示年月日 
FormatdateTime('dddddd',now); 
输出为：2004年8月7日

e/ee/eee/eeee 以相应的位数显示年 
FormatdateTime('ee',now); 
输出为：04 （表示04年）

m/mm/mmm/mmmm 表示月 
FormatdateTime('m',now); 
输出为：8FormatdateTime('mm',now); 
输出为 08 
FormatdateTime('mmm',now); 
输出为 八月 
FormatdateTime('mmmm',now); 
输出为 八月 
和ddd/dddd 一样，在其他国家可能不同

yy/yyyy 表示年 
FormatdateTime('yy',now); 
输出为 04 
FormatdateTime('yyyy',now); 
输出为 2004

h/hh,n/nn,s/ss,z/zzz 分别表示小时，分，秒,毫秒 
t 以短时间格式显示时间 
FormatdateTime('t',now); 
输出为 10:17

tt 以长时间格式显示时间 
FormatdateTime('tt',now); 
输出为10:18:46

ampm 以长时间格式显示上午还是下午 
FormatdateTime('ttampm',now); 
输出为：10:22:57上午

如果要在Format中加普通的字符串，可以用双引号隔开那些特定义的字符，这样普通字符串中如果含特殊的字符就不会被显示为时间格式啦： 
FormatdateTime('"today is" c',now); 
输出为：today is 2004-8-7 10:26:58

时间中也可以加"-"或"\"来分开日期： 
FormatdateTime('"today is" yy-mm-dd',now); 
FormatdateTime('"today is" yy\mm\dd',now); 
输出为： today is 04-08-07

也可以用":"来分开时间 
FormatdateTime('"today is" hh:nn:ss',now); 
输出为：today is 10:32:23

今天真正弄明白一个问题，TfileStream如何共享打开一个文件，FileStream := TFileStream.Create(FileName, fmShareDenyNone);即可，不怕要以读为目的打开的文件已被占用的情况。