Delphi的StrToDate

默认的StrToDate和当前操作系统设定的日期策略有关(短日期格式)，一旦和开发时用的编码不符，会抛出异常。
所以，最好在做转换时，强制转换一下，如下

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