如同題目一樣.... 我正在學習Delphi...是否有高手可以幫幫我!! 感謝!!

bigcome2004您好: 利用Time()可以傳回現在時間的字串 BCB:

 AnsiString FileName = Time();
 ShowMessage(FileName);

Delphi應該也差不多< > 順心< >

利用Time()可以傳回現在時間的字串 BCB: AnsiString FileName = Time(); ShowMessage(FileName); Delphi應該也差不多 不好意思..因為我還不是很會Delphi 所以你說的差不多我真的不太會... 可否用Delphi語法... 真是麻煩你了...

bigcome2004您好: 您不是很會Delphi, 我是根本就不會< > 而且您是要當做什摩東西的檔名您也沒有說明清楚喔< >

您好：  

 procedure TForm1.Button1Click(Sender: TObject);
Var
  Filename:string;
begin
  Filename:= datetimetostr(now);
  Showmessage(Filename);
end;

如果只要時間Filename:= timetostr(now); 只要日期Filename:= datetostr(now); ~~應無所住而生其心~~

hi, 可以使用 FormatDatetime 函數比較容易做出你要的檔名格式, 如:

var
  sFileName: string;
begin
  sFileName := FormatDateTime('yyyy-mm-dd-hh-nn-ss.txt', Now);
  xxx.SaveToFile(sFileName);
end;

這樣就可以取得 2004-03-07-23-02-31.txt 這樣的字串做為檔名, 可以依你實際的需要來進行修改!

var year,month,day:word; hour,min,sec,msec:word; filename:string; begin decodedate(now,year,month,day); decodetime(now,hour,min,sec,msec); filename:=inttostr(year) format('%.2d',[month]) format('%.2d',[day]) format('%.2d',[hour]) format('%.2d',[min]) format('%.2d',[sec]); //do something end;

感謝各位

bigcome2004 你好 timhuang大大提供的方式更精簡 FileName := FormatDateTime('yyyymmddhhnnss.txt', Now);