style: Better formating of list build results

ObjectPascal-Community · Mar 3, 2024 · 38c323a · 38c323a
1 parent a87cb3c
commit 38c323a
Showing 1 changed file with 4 additions and 4 deletions.
diff --git a/generator/Common/generate.common.pas b/generator/Common/generate.common.pas
@@ -111,9 +111,9 @@ procedure TGenerator.BuildStationNames;
   begin
     raise Exception.Create(Format('File "%s" not found.', [ FInputFile ]));
   end;
-  WriteLn(Format('Done: Processed %d entries from a total of %d weather stations in %d ms', [
-    count,
-    FStationNames.Count,
+  WriteLn(Format('Done: Processed %.n entries from a total of %.n weather stations in %d ms', [
+    Double(count),
+    Double(FStationNames.Count),
     stop-start
   ]));
   WriteLn;
@@ -130,7 +130,7 @@ function TGenerator.GenerateProgressBar(APosition, AMax, ALength: Int64
   Result:= '[';
   Result:= Result + StringOfChar('#', filled);
   Result:= Result + StringOfChar('-', ALength - filled);
-  Result:= Result + Format('] %5.2f %% done.', [ percentDone ]);
+  Result:= Result + Format('] %5.2f %%', [ percentDone ]);
 end;
 
 procedure TGenerator.Generate;