Browse Source

fixed the handling of DecimalSeparator (WARNING: there were two statements in the same line)

silverio.di 1 month ago
parent
commit
fed7287b0c
1 changed files with 1 additions and 1 deletions
  1. 1 1
      Src/Stage.Utils.pas

+ 1 - 1
Src/Stage.Utils.pas

@@ -221,7 +221,7 @@ var
   DSeparator: Char;
   DSeparator: Char;
   fs: TFormatSettings;
   fs: TFormatSettings;
 begin
 begin
-  DSeparator := fs.DecimalSeparator;                                                                                                   fs.DecimalSeparator := ',';
+  DSeparator := fs.DecimalSeparator;
   try
   try
     fs.DecimalSeparator := ',';
     fs.DecimalSeparator := ',';
     if not TryStrToFloat(S, Result, fs) then
     if not TryStrToFloat(S, Result, fs) then