为什么 TFormatSettings 没有按预期运行？

Question

我期望以下的代码能够正常工作：

program Project3;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

var
  FS: TFormatSettings;

const
  DF = 'yyyymmdd';

begin
  try
   WriteLn(FormatDateTime(DF, Now));

   FS := TFormatSettings.Create;
   FS.ShortDateFormat := DF;
   WriteLn(StrToDate('20121219', FS));

   ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.

为什么抛出了异常，说“20121219”不是一个有效的日期？这不正是传递TFormatSettings应该做的吗？

- Nick Hodges

---

RTL似乎不喜欢格式设置中没有设置日期分隔符。 - 500 - Internal Server Error

Answer 1

StrToDate() 需要使用 FS.DateSeparator：Char 来定义分隔符，因此不能留空。

参考: http://docwiki.embarcadero.com/Libraries/XE3/en/System.SysUtils.StrToDate

- bummi

---

真遗憾。那似乎是一个疏忽。 - Nick Hodges