Delphi2007在win7系统下的日期问题

XP和Win7的日期格式在系统默认中并不一致，比如在XP下默认是\'2012-1-1\'，在win7下却变成了\'2012/1/1\'。

办法1---替换法：

strSetTime :=\'2012/1/1\'  ;

if pos(\'/\', strSetTime) > 0 then
        strSetTime := StringReplace(strSetTime, \'/\', \'-\', [rfReplaceAll]);

办法 2---TFormatSettings

使用TFormatSettings来就OK了
var
t:TDateTime;
fs:TFormatSettings;
begin
fs.ShortDateFormat:=\'yyyy-mm-dd\';
fs.DateSeparator:=\'-\';

t := StrToDate(\'2010-01-01\',fs);//, fs.LongDateFormat);
ShowMessage(\'01/01/2075 = \'+DateTimeToStr(t,fs));