我想要將現在日期取出用作檔名 程式如下: var SysTime: TsystemTime;    begin GetLocalTime(SysTime); FileName:= 'C:\TEST'+format('%d%d%d',[SysTime.wMonth,SysTime.wDay,SysTime.wHour]) + '.txt';    但是如果現在是3月19日2時 會show出3192   如果我想要 > 請各位前輩指點一下 < > 謝謝您的回答< > 發表人 -

FileName:= 'C:\TEST' format('---',[SysTime.wMonth,SysTime.wDay,SysTime.wHour]) '.txt'; 試試吧

試了以後的結果是變成 TEST 319 2.txt                           一位數會自動補空格,有辦法補0嗎  謝謝! 發表人 -

你用這個 FUNCTION比較快啦!!    

 
procedure TForm1.Button1Click(Sender: TObject);
begin
  Caption:=FormatDateTime('mmddhh',now) ;
end; 

...Aquarius

------
水瓶男的blog: http://791909.blogspot.com

您好： 這裡也有http://delphi.ktop.com.tw/topic.php?topic_id=46081 ~~應無所住而生其心~~

謝謝大家的熱心QQ 原來FormatDateTime就可以用了 也謝謝提供之前的討論

這篇好像放錯地方了  可以的話,麻煩版主幫我移走 ^^" 謝謝 辛苦您了

procedure TForm1.Button1Click(Sender: TObject); var SysTime: tdatetime; filename:string; begin SysTime:=now(); FileName:='c:\' FormatDateTime('mmddhh',SysTime) '.txt'; showmessage(filename); end; 試試這個~~