当前位置: 首页 > 技术文档 > 正文
avatar

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;
本文固定链接: https://blog.yanhualou.com/jishu/112.html | 烟花楼博客
标签:

Delphi 日期格式在win7下报错:等您坐沙发呢!

发表评论

快捷键:Ctrl+Enter