Tại sao TFormatCài đặt không hoạt động như mong đợi?

Question

Tôi hy vọng các mã sau đây để làm việc:

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. 

Tại sao nó ném một ngoại lệ, nói rằng '20.121.219' không phải là một ngày hợp lệ? Đó không phải là chính xác những gì vượt qua TFormatSettings là nghĩa vụ phải làm gì?

Answer 1

StrToDate() cần bộ tách được xác định trong FS.DateSeparator: Char; và không được để trống.

tham khảo: http://docwiki.embarcadero.com/Libraries/XE3/en/System.SysUtils.StrToDate