delphi - 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 を渡すことの本来の目的ではないでしょうか。

Answer 1

StrToDate() には、FS.DateSeparator: Char; で定義されている区切り記号が必要です。空にすることはできません。

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