delphi - 使用StrToDateTime和TFormatSettings进行的转换不起作用

该代码应在Delphi XE2中可用，但在StrtoDateTime转换中给出“无效的日期和时间”错误：

procedure TForm2.Button1Click(Sender: TObject);
var
  s: string;
  d: TDateTime;
  FmtStngs: TFormatSettings;
begin
    GetLocaleFormatSettings(GetThreadLocale, FmtStngs);
    FmtStngs.DateSeparator := #32;
    FmtStngs.ShortDateFormat := 'dd mmm yyyy';
    FmtStngs.TimeSeparator := ':';
    FmtStngs.LongTimeFormat := 'hh:nn';

    s := FormatDateTime('', Now, FmtStngs);
    d := StrToDateTime(s, FmtStngs);
end;

有什么提示吗？

最佳答案

如果要转换某些特殊的DateTime格式，则最好使用VarToDateTime而不是StrToDateTime。只需看一下两者的实现，您就会认识到StrToDateTime是某种方式……而VarToDateTime将询问操作系统是否无法自行确定。

这适用于Delphi XE3（但也应适用于早期版本）：

procedure TForm2.Button1Click( Sender: TObject );
var
  s: string;
  d: TDateTime;
  FmtStngs: TFormatSettings;
begin
    GetLocaleFormatSettings( GetThreadLocale, FmtStngs );
    FmtStngs.DateSeparator := #32;
    FmtStngs.ShortDateFormat := 'dd mmm yyyy';
    FmtStngs.TimeSeparator := ':';
    FmtStngs.LongTimeFormat := 'hh:nn';

    s := FormatDateTime( '', Now, FmtStngs );
    d := VarToDateTime( s );
end;