locale format

in german 1mio = 1.000.000
usa = 1,000,000

Author: dtpfl

generator/Lazarus/src/generator.lpr

@@ -148,13 +148,12 @@ procedure TOneBRCGenerator.DoRun;
     Exit;
   end;
 
-
   inputFilename:= ExpandFileName(inputFilename);
   outputFilename:= ExpandFileName(outputFilename);
 
   WriteLn('Input File : ', inputFilename);
   WriteLn('Output File: ', outputFilename);
-  WriteLn('Line Count : ', FormatFLoat('#'+DefaultFormatSettings.ThousandSeparator+'##0', lineCount));
+  WriteLn('Line Count : ', Format('%.0n', [lineCount * 1.0]));
   WriteLn;
 
   FGenerator:= TGenerator.Create(inputFilename, outputFilename, lineCount);