Delphi 设置时间格式函数SetSysDateFormat

转载自：https://blog.csdn.net/Listest/article/details/122942761
在时间转字符串的时候特别好用，有的系统的时间格式不一样，
产生的字符串也不一样，我们处理字符串的时候可能会出错，
直接给他统一一种格式，免去手动去设置的痛苦

procedure 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';
  ShortTimeFormat := 'hh:nn:ss';
  DateSeparator := '-';
  TimeSeparator := ':';
end;