Delphi7设置程序日期格式，减少WINDOWS系统默认的短日期格式的影响

最新推荐文章于 2024-09-28 18:29:11 发布

goto1997

最新推荐文章于 2024-09-28 18:29:11 发布

阅读量419

点赞数

分类专栏： Delphi 文章标签： delphi7 日期 windows 短日期格式

本文链接：https://blog.csdn.net/goto1997/article/details/114871965

版权

Delphi 专栏收录该内容

7 篇文章

订阅专栏

Delphi7设置程序日期格式，减少WINDOWS系统默认的短日期格式的影响

具体代码如下：

  public
    { Public declarations }
    procedure SetSysDateFormat();
end;

procedure TFrmMain.SetSysDateFormat;
begin
  //设置Windows系统的短日期格式;
  SetLocaleInfo(LOCALE_SYSTEM_DEFAULT,LOCALE_SSHORTDATE,'yyyy-MM-dd');

  Application.UpdateFormatSettings := False;
  //设定程序本身所使用的日期时间格式;
  LongDateFormat  := 'yyyy-MM-dd';
  ShortDateFormat := 'yyyy-MM-dd';
  LongTimeFormat  := 'HH:nn:ss';
  LongTimeFormat  := 'HH:nn:ss';
  DateSeparator   :='-';
  TimeSeparator   :=':';

end;

procedure TFrmMain.FormCreate(Sender: TObject);
begin
  SetSysDateFormat();
end;