Delphi 解決StrToDateTime（）不是有效日期類型的問題

相關資料：

http://www.delphitop.com/html/shijian/4924.html

方法 1：

function GetDateFormat():string;

var

  SysFrset: TFormatSettings;

begin

  Result:= '';

  GetLocaleFormatSettings(GetUserDefaultLCID, SysFrset);

  Result:=SysFrset.DateSeparator;  //DateSeparator當前系統日期分隔符

end;

 

procedure TForm1.btn1Click(Sender: TObject);

var   

  Dat:TDateTime;

  Fr, Fm:string;//保存日期格式的字符串變量

  str: string;

begin  

  Fr:=GetDateFormat;//獲取當前系統日期分隔符

  Fm:= Format('yyyy%sMM%sdd hh:mm:ss',[Fr,Fr]);

  str:= FormatDateTime(Fm,Now);

  ShowMessage(str);

  Dat:=StrToDateTime(str);  //這樣始終都會跟當前系統日期分隔符同步，這樣不管你把當前系統日期分隔符設置為什么樣都不會報錯

end;

 

方法2：

procedure TForm1.btn2Click(Sender: TObject);

var

  D:TDateTime;

  s:string;

begin

//  D:=VarToDateTime('05-10-14 04:35PM');

  D:=VarToDateTime('2018-03-13 12:12:12');

  S:=FormatDatetime('YYYY/MM/DD HH:MM:SS',D);

  showmessage(s);

end;

 

----------------------------------

在 DELPHI IDE 下 按下 CTRL+SHIFT+F 。搜索 Application.Initialize; 就能找到 代碼的修改位置。
另外 也可以不要 Application.Initialize; ，然后代碼放到 其他位置。
特別是你第一個建立的 對象的位置。
例如 DataMoudle 或者 主界面，或者 登錄界面。
在他們的 OnCreate 里寫就行了。
with FormatSettings do
  begin
    ShortDateFormat := 'yyyy-mm-dd';
    LongDateFormat :=  'yyyy-mm-dd';
    ShortTimeFormat := 'hh:nn:ss';
    LongTimeFormat := 'hh:nn:ss';
    DateSeparator := '-';
    TimeSeparator := ':';
  end;