FormatDateTime 一段以时间为命令的代码
//FormatDateTime 一段以时间为命令的代码
procedure TForm1.Button1Click(Sender: TObject);
var
filename,timename:string;
begin
filename:='文件名_'; //这是一个变量名
timename:=filename+FormatDateTime('yyyy"年"mm"月"dd"日_"dddd"_"hh"_"mm"_"ss',now);
ShowMessage(timename);
end; 
procedure TForm1.Button2Click(Sender: TObject);
var
filename,timename:string;
begin
// filename:='文件名_'; //这是一个变量名
timename:=FormatDateTime('[yyyy"-"mm"-"dd" "dddd" "hh"-"mm"-"ss ]',now);
ShowMessage(timename);
end; 