Delphi的StrToDate

默認的StrToDate和當前操作系統設定的日期策略有關(短日期格式)，一旦和開發時用的編碼不符，會拋出異常。
所以，最好在做轉換時，強制轉換一下，如下

var
t:TDateTime;
fs:TFormatSettings;
begin
fs.ShortDateFormat:='yyyy-mm-dd';
fs.DateSeparator:='-';
t := StrToDate('2010-01-01',fs);