cleanup the main LPR, to prepare for single-file submissions

Author: georges-hatem

entries/ghatem-fpc/src/OneBRCproj.lpr

@@ -22,7 +22,7 @@   TOneBRCApp = class(TCustomApplication)
   protected
     procedure DoRun; override;
   public
-    constructor Create(TheOwner: TComponent); override;
+    constructor Create(aOwner: TComponent); override;
     destructor Destroy; override;
     procedure WriteHelp; virtual;
   end;
@@ -41,36 +41,6 @@ procedure TOneBRCApp.RunOneBRC;
       vOneBRC.WaitAll;
       vOneBRC.MergeAll;
       vOneBRC.GenerateOutput;
-
-      //vStart := GetTickCount;
-      //vOneBRC.mORMotMMF (FFileName);
-      //vTime := GetTickCount - vStart;
-      //WriteLn('read: ' + FloatToStr(vTime / 1000));
-      //WriteLn('-----------');
-      //WriteLn;
-      //
-      //vStart := GetTickCount;
-      //vOneBRC.DispatchThreads;
-      //vOneBRC.WaitAll;
-      //vTime := GetTickCount - vStart;
-      //WriteLn('process: ' + FloatToStr(vTime / 1000));
-      //WriteLn('-----------');
-      //WriteLn;
-      //
-      //vStart := GetTickCount;
-      //vOneBRC.MergeAll;
-      //vTime := GetTickCount - vStart;
-      //WriteLn('merge: ' + FloatToStr(vTime / 1000));
-      //WriteLn('-----------');
-      //WriteLn;
-      //
-      //vStart := GetTickCount;
-      //vOneBRC.GenerateOutput;
-      //vTime := GetTickCount - vStart;
-      //WriteLn('generate: ' + FloatToStr(vTime / 1000));
-      //WriteLn('-----------');
-      //WriteLn;
-      //ReadLn;
     except
       on E: Exception do
       begin
@@ -83,6 +53,8 @@ procedure TOneBRCApp.RunOneBRC;
   end;
 end;
 
+{$REGION TOneBRCApp scaffolding}
+
 procedure TOneBRCApp.DoRun;
 var
   ErrorMsg: String;
@@ -146,9 +118,9 @@ procedure TOneBRCApp.DoRun;
   Terminate;
 end;
 
-constructor TOneBRCApp.Create(TheOwner: TComponent);
+constructor TOneBRCApp.Create(aOwner: TComponent);
 begin
-  inherited Create(TheOwner);
+  inherited Create(aOwner);
   StopOnException:=True;
 end;
 
@@ -172,3 +144,5 @@ procedure TOneBRCApp.WriteHelp;
   Application.Free;
 end.
 
+{$ENDREGION}
+