From e485403341f2e141c4dff742fdfab4f411c23122 Mon Sep 17 00:00:00 2001
From: dtpfl <kontakt@dtpfl.de>
Date: Sat, 2 Mar 2024 20:41:20 +0100
Subject: [PATCH] locale format

in german 1mio = 1.000.000
usa = 1,000,000
---
 generator/Lazarus/src/generator.lpr | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/generator/Lazarus/src/generator.lpr b/generator/Lazarus/src/generator.lpr
index fd137e9..3bab882 100644
--- a/generator/Lazarus/src/generator.lpr
+++ b/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);