計算目前的年月日時分秒當檔案名稱使用, 有什麼更簡潔寫法?
var
DateString, TimeString : String;
YearStr, MonthStr, DayStr, HourStr, MinStr, SecStr : String;
begin
// ***** 計算目前的年月日時分秒當檔案名稱使用 ****
DateString := DateToStr(date);
TimeString := TimeToStr(Time);
YearStr := DateString[1] DateString[2] DateString[3] DateString[4] ;
if (DateString[7]='/') then // 月份為1個數字, 1-9 月
begin
MonthStr := '0' DateString[6]; //月份補成 2 位
if (DateString[9]='') then // 日期為 1 個數字
DayStr := '0' DateString[8]
else
DayStr := DateString[8] DateString[9];
end
else // 月份為2個數字, 10-12 月
begin
MonthStr := DateString[6] DateString[7];
if (DateString[10]='') then
DayStr := '0' DateString[9]
else
DayStr := DateString[9] DateString[10];
end;
AMPM:=TimeString[1] TimeString[2] TimeString[3] TimeString[4];
HourStr := TimeString[6] TimeString[7];
if (AMPM='上午') and (HourStr='12') then HourStr := '00';
if (AMPM='下午') and (HourStr<>'12') then HourStr := IntToStr(StrToInt(HourStr) 12);
MinStr := TimeString[9] TimeString[10];
SecStr := TimeString[12] TimeString[13];
CurrentDateTime := YearStr MonthStr DayStr '-' HourStr MinStr SecStr;
Memo1.Lines.SaveToFile(CurrentDateTime '.txt');
end;

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

編輯記錄

小弟平時在 BCB 將日期改為字串的寫法
AnsiString CurrentDateTime = Now().FormatString("yyyymmddhhnnss");
Delphi 應該會有通用的物件可以使用
可以找說明檔有關 DateTime 之類的物件屬性

------
無限的想像，無盡的延伸。

FormatString 在按下 F1 Help 沒有說明, Delphi 可能不支援

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！

還有一個 FormatDateTime 也可以做到上述的結果
http://www.delphibasics.co.uk/RTL.asp?Name=FormatDateTime

------
無限的想像，無盡的延伸。

幾種方法
<textarea class="delphi" rows="10" cols="60" name="code"> Memo1.Clear; Memo1.Lines.Add('日期時間 : ' DateTimeToStr(Now)); Memo1.Lines.Add('日期時間 : ' DateToStr(Date) ' ' TimeToStr(Time)); DateSeparator := '-'; ShortDateFormat := 'yyyymmdd'; Memo1.Lines.Add(DateToStr(Date)); LongTimeFormat := 'hhmmss'; Memo1.Lines.Add(TimeToStr(Time)); Memo1.Lines.Add(FormatDateTime('yyyymmddhhmmss',Now));</textarea>

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！