* Add some methods to TFormatSettings for Delphi compatibility

rtl/objpas/sysutils/sysint.inc

@@ -13,6 +13,41 @@
 
  **********************************************************************}
 
+class function TFormatSettings.Invariant : TFormatSettings; 
+
+begin
+  With Result do
+    begin
+    CurrencyFormat:=1;
+    NegCurrFormat:=5;
+    ThousandSeparator:=',';
+    DecimalSeparator:='.';
+    CurrencyDecimals:=2;
+    DateSeparator:='-';
+    TimeSeparator:=':';
+    ListSeparator:=',';
+    CurrencyString:='$';
+    ShortDateFormat:='d/m/y';
+    LongDateFormat:='dd" "mmmm" "yyyy';
+    TimeAMString:='AM';
+    TimePMString:='PM';
+    ShortTimeFormat:='hh:nn';
+    LongTimeFormat:='hh:nn:ss';
+    ShortMonthNames:=['Jan','Feb','Mar','Apr','May','Jun', 
+                      'Jul','Aug','Sep','Oct','Nov','Dec'];
+    LongMonthNames:=['January','February','March','April','May','June',
+                     'July','August','September','October','November','December'];
+    ShortDayNames:=['Sun','Mon','Tue','Wed','Thu','Fri','Sat'];
+    LongDayNames:=['Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday'];
+    TwoDigitYearCenturyWindow:=50;
+    end;
+end;
+
+class function TFormatSettings.Create: TFormatSettings; inline;
+
+begin
+  Result:=DefaultFormatSettings;
+end;
 
 procedure InitInternationalGeneric;
   begin

rtl/objpas/sysutils/sysinth.inc

@@ -52,6 +52,10 @@ type
     ShortDayNames: TWeekNameArray;
     LongDayNames: TWeekNameArray;
     TwoDigitYearCenturyWindow: Word;
+    class function Invariant : TFormatSettings; static;
+    class function Create: TFormatSettings; overload; static; inline;
+    //  class function Create(Locale: TLocaleID): TFormatSettings; overload; platform; static;
+    //  class function Create(const LocaleName: string): TFormatSettings; overload; static;  
   end;
 
 var