判断字符串转为时间

Question

控制面板-日期、时间、语言和区域设置-更改数字、时间和日期格式
把时间格式改为英语（美国）。然后再执行下面的程序代码，StrToDateTime函数就会出错。如果时间是中国格式的话，则没有这个问题。procedure TForm1.Button1Click(Sender: TObject);
var
  dt:TDateTime;
begin dt:=StrToDateTime(FormatDateTime('yyyy-mm-dd hh:nn:ss',now)) ;
 Memo1.Lines.Add(DateTimeToStr(dt)) ;end;
有没有一种方法，不受系统时间格式的限制。 时间日期和字符串互转不出错呢。

Answer 1

直接使用VCL内置的ShortDateFormat和ShortTimeFormat这两个全局就可以了.procedure TForm1.Button1Click(Sender: TObject);
var
    dt: TDateTime;
begin
    dt := StrToDateTime(FormatDateTime(
            ShortDateFormat + ' ' + ShortTimeFormat, Now));    Memo1.Lines.Add(DateTimeToStr(dt));
end;