么意思博客

XP和Win7的日期格式在系统默认中并不一致，比如在XP下默认是’2013-1-1’，在win7下却变成了’2 […]

XP和Win7的日期格式在系统默认中并不一致，比如在XP下默认是’2013-1-1’，在win7下却变成了’2013/1/1’。
办法1—替换法：

procedure TForm1.Button1Click(Sender: TObject);
var
strSetTime:string;
begin
edit1.Text:=datetostr(now);
strSetTime:=edit1.Text  ;
if pos('-', strSetTime) > 0 then
strSetTime := StringReplace(strSetTime, '-', '/', [rfReplaceAll]);
edit1.Text:= strSetTime;
end;