Browse Source

* provide suitable defaults for Long- and ShortTimeFormat

svenbarth 4 years ago
parent
commit
d3efceb4d0
1 changed files with 2 additions and 0 deletions
  1. 2 0
      packages/rtl/sysutils.pas

+ 2 - 0
packages/rtl/sysutils.pas

@@ -4919,6 +4919,8 @@ begin
   Result.TimeSeparator := ':';
   Result.TimeSeparator := ':';
   Result.ShortDateFormat := 'yyyy-mm-dd';
   Result.ShortDateFormat := 'yyyy-mm-dd';
   Result.LongDateFormat := 'ddd, yyyy-mm-dd';
   Result.LongDateFormat := 'ddd, yyyy-mm-dd';
+  Result.ShortTimeFormat := 'hh:nn';
+  Result.LongTimeFormat := 'hh:nn:ss';
   Result.DecimalSeparator := '.';
   Result.DecimalSeparator := '.';
   Result.ThousandSeparator := ',';
   Result.ThousandSeparator := ',';
   Result.TimeAMString := 'AM';
   Result.TimeAMString := 'AM';