不修改系统日期和时间格式，解决Delphi报错提示 '****-**-**'is not a valid date and time

Posted 2020-10-27 tc310

假如操作系统的日期格式不是yyyy-MM-dd格式，而是用strtodate(\'2014-10-01\')) 来转换的话，程序会提示爆粗 \'****-**-**\'is not a valid date and time

解决方法：

只需要在程序启动时添加以下代码，就可以不用修改系统日期和时间格式，就能解决上述报错

 

  DateSeparator := \'-\';//日期分隔符
  LongDateFormat := \'yyyy-MM-dd\'; //长日期格式
  ShortDateFormat :=  \'yyyy-MM-dd\'; //短日期格式
  LongTimeFormat := \'HH:nn:ss\';
  ShortTimeFormat := \'HH:nn:ss\';
  Application.UpdateFormatSettings := False;