在线等待关于文件的存储！

Question

我想让文件名自动保存成时期格式，日/时/分，例如01/01/01，源码如下：
procedure TForm1.Button1Click(Sender: TObject);
     var F: TextFile;begin
  AssignFile(F, 'c:\7788.txt'); 
  Rewrite(F);  
  Writeln(F, Memo1.text); 
  CloseFile(F);  
end;哪位高手可以帮俺解决啊，谢谢啦。

Answer 1

取当前时间啊:procedure TForm1.Button1Click(Sender: TObject);
var F: TextFile;
var strTime,strFName : string;  
begin
  strTime := FormatDateTime('mm/dd/hh/nn/ss',Now)
  strFName := 'c:\'+ strTime + '.txt';
  AssignFile(F, strFName ); 
  Rewrite(F);  
  Writeln(F, Memo1.text); 
  CloseFile(F);  
end;

Answer 2

运行不了啊，strFName := 'c:\'+ strTime + '.txt';有错

Answer 3

楼主，文件名是不能包含以下这些字符的：／ \ : * ? < > |
这个应该是常识来的……

Answer 4

唉，那句没错，是strTime := FormatDateTime('mm/dd/hh/nn/ss',Now)后面少了分号。
文件名如果不能用/，那楼主就换成别的格式吧,比如：
strTime := FormatDateTime('mmddhhnnss',Now); //mm代表月，dd代表天，hh代表小时，nn是分，ss是秒,这些格式可以查formatDateTime的delphi帮助的.