保存问题

Question

是这样的，我要把我的文件缺省保存为“2002年-11月-11日”这种形式；
想问一下怎么做，最好提供源代码！

Answer 1

procedure TForm1.Button1Click(Sender: TObject);var
  Present: TDateTime;
  Year, Month, Day: Word;
  S :String;
 begin
  Present:= Now;
  DecodeDate(Present, Year, Month, Day);
  S:= IntToStr(Year)+'年-'+IntToStr(Month)+'月-'+IntToStr(Day)+'日' ; end;

Answer 2

这样就行
var
   s:string;
begin
   s:=formatdatetime('yyyy''年-''mm''月-''dd''日''',now);
end;
   filecreate(s);

Answer 3

savedialog1.FileName:=formatdatetime('yyyy''年-''mm''月-''dd''日.txt''',now);
if savedialog1.Execute then

Answer 4

谢谢大家的参与，shuixin13(犬犬（心帆）)兄：我写的代码和你的差不多，可能以前没有作过类似的东西，所以有点乱。你的方法我试过了，可以不行。