feat: Thanks to @mobius we have Delphi generator

Author: gcarreno

generator/Common/generate.console.pas

@@ -22,9 +22,15 @@ interface
   cLongOptOutput         = 'output-file';
   cShortOptNumber: Char  = 'n';
   cLongOptNumber         = 'line-count';
+  {$IFDEF FPC}
+  cShortOptions: array of char = ('h', 'v', 'i', 'o', 'n');
+  cLongOptions: array of string = ('help', 'version', 'input-file', 'output-file',
+                                   'line-count');
+  {$ELSE}
   cShortOptions: array of char = ['h', 'v', 'i', 'o', 'n'];
   cLongOptions: array of string = ['help', 'version', 'input-file', 'output-file',
                                    'line-count'];
+  {$ENDIF}
 
 resourcestring
   rsAppTitle = 'One Billion Row Challenge Generator';

generator/Common/version.inc

@@ -1,2 +1,2 @@
 const
-  cVersion = '0.3';
+  cVersion = '0.4';

generator/Lazarus/src/generator.lpr

@@ -107,7 +107,7 @@ procedure TOneBRCGenerator.DoRun;
   if HasOption(cShortOptNumber, cLongOptNumber) then
   begin
     tmpLineCount:=GetOptionValue(
-      cShortOptNumner,
+      cShortOptNumber,
       cLongOptNumber
     );
     tmpLineCount:= StringReplace(tmpLineCount, '_', '', [rfReplaceAll]);