hedgewars/uLocale.pas
changeset 14861 acb0526bf458
parent 13967 a04c86dc685f
child 15960 79b1129b4d03
--- a/hedgewars/uLocale.pas	Tue Apr 30 17:00:23 2019 +0200
+++ b/hedgewars/uLocale.pas	Tue Apr 30 18:25:04 2019 +0200
@@ -53,7 +53,7 @@
 {$ENDIF}
 
 implementation
-uses uRandom, uUtils, uVariables, uDebug, uPhysFSLayer;
+uses SysUtils, uRandom, uUtils, uVariables, uDebug, uPhysFSLayer;
 
 var trevt: array[TEventId] of array [0..Pred(MAX_EVENT_STRINGS)] of ansistring;
     trevt_n: array[TEventId] of integer;
@@ -65,6 +65,11 @@
     first: array[TEventId] of boolean;
     e: TEventId;
 begin
+{- TODO: Add support for localized decimal separator in Pas2C -}
+{$IFNDEF PAS2C}
+lDecimalSeparator:= FormatSettings.DecimalSeparator;
+{$ENDIF}
+
 for e:= Low(TEventId) to High(TEventId) do
     first[e]:= true;