Delphi 中 日期格式化

在APP程序中，我们格式式日期一般用的是yyyy-mm-dd，如果系统默认的日期格式是2020/05/11 ，此是格式化日期格式就会报异常

解决方法如下：

 D7中没有 FormatSettings类，可以直接使用下面的变量

with FormatSettings do

begin
  CurrencyString := '￥'; // 货币符号
  CurrencyFormat := 0; // 货币格式
  negcurrformat := 2;
  thousandseparator := ','; // 货币千分位数分隔符号
  decimalseparator := '.'; // 小数点符号
  currencydecimals := 2; // 货币小数位数
  DateSeparator := '-'; // 日期分隔符
  shortdateformat := 'yyyy-mm-dd'; // 短日期格式
  longdateformat := 'yyyy-mm-dd'; // 长日期格式
  timeSeparator := ':'; // 时间 分隔符
  shortTimeFormat := 'hh:nn:ss'; // 短时间格式
  longtimeformat := 'hh:nn:ss'; // 长时间格式
  ShortDayNames[1] := '日';
  ShortDayNames[2] := '一';
  ShortDayNames[3] := '二';
  ShortDayNames[4] := '三';
  ShortDayNames[5] := '四';
  ShortDayNames[6] := '五';
  ShortDayNames[7] := '六';
  TimeAMString := 'AM'; // 上午
  TimePMString := 'PM'; // 下午
end;