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;