From 1559d1f4b607f06c447cef42f9ce9f905acda565 Mon Sep 17 00:00:00 2001
From: mattias <mattias@idefix.freepascal.org>
Date: Sun, 17 Feb 2019 20:49:59 +0000
Subject: [PATCH] rtl: TFormatSettings class constructor

---
 packages/rtl/sysutils.pas | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/packages/rtl/sysutils.pas b/packages/rtl/sysutils.pas
index fe9cd56..0615923 100644
--- a/packages/rtl/sysutils.pas
+++ b/packages/rtl/sysutils.pas
@@ -463,6 +463,7 @@ type
     procedure SetTimePMString(const Value: string);
     procedure SetTimeSeparator(const Value: char);
   public
+    class constructor Init;
     Property ShortMonthNames : TMonthNames Read GetShortMonthNames Write SetShortMonthNames;
     Property LongMonthNames : TMonthNames Read GetLongMonthNames Write SetLongMonthNames;
     Property ShortDayNames : TDayNames Read GetShortDayNames Write SetShortDayNames;
@@ -4146,6 +4147,11 @@ begin
   SysUtils.TimeSeparator := Value;
 end;
 
+class constructor TFormatSettings.Init;
+begin
+  FormatSettings := TFormatSettings.Create;
+end;
+
 { ---------------------------------------------------------------------
   FileNames
   ---------------------------------------------------------------------}
@@ -4404,9 +4410,5 @@ begin
     Result := '';
 end;
 
-
-initialization
-  FormatSettings := TFormatSettings.Create;
-
 end.