var
FSetting : TFormatSettings;
DateTime1: tDateTime;
begin
FSetting := TFormatSettings.Create(LOCALE_USER_DEFAULT);
FSetting.ShortDateFormat:='yyyy-MM-dd';
FSetting.DateSeparator:='-';
//FSetting.TimeSeparator:=':';
FSetting.LongTimeFormat:='hh:mm:ss.zzz';
DateTime1 := StrToDateTime('2011-10-20 15:59:59:789', FSetting);
end;
上例中的代码经过测试,加入FSetting.TimeSeparator:=':';后,毫秒部分读取失败,原因不太清楚。
TFormatSettings中一些属性的解释:
DateSeparator :Char
日期分隔符,用于分隔年月日
TimeSeparator
:Char
时间分隔符,用于分隔小时,分钟,秒
ShortDateFormat:String
区域设置中短日期格式的定义。
LongDateFormat
:String
区域设置中长日期格式的定义。
ShortTimeFormat:String
<