Delphi 獲取系統時間后格式化輸出

 問題：客戶現場程序運行提示時間格式不對導致的錯誤，原因是與開發環境及公司內部測試環境的日期格式不一致；

 解決：統一強制轉換；

 

//引用單元：SysUtils  
//目的：實現跨環境兼容不同日期格式，如果不做強制格式處理，不同環境存在發生問題的可能性；  
function GetSysTimeByFormate: string;  
var  
  dtFormate: TFormatSettings;  
begin  
  try  
    dtFormate.ShortDateFormat := 'yyyy/MM/dd';  
    dtFormate.DateSeparator := '/';  
    dtFormate.LongTimeFormat := 'hh:mm:ss';  
    dtFormate.TimeSeparator := ':';  
    Result := DateTimeToStr(Now(),dtFormate);  
  except  
  end;  
end;