Merge pull request #83 from OttoCoddo/main

Improved help

Author: gcarreno

entries/ocoddo/src/Project1.lpr

@@ -365,13 +365,8 @@   TStationSummary = record
   end;
 
   function HandleParameters(out AFilePath: TFilePath): Bool;
-  var
-    I: Ind;
-    N: Str;
-    V: I64;
-  begin
-    Result := False;
-    if Length(Parameters) = 0 then
+
+    procedure WriteHelp;
     begin
       WriteLn;
       WriteLn('1BRC');
@@ -386,14 +381,25 @@   TStationSummary = record
       WriteLn('--part-size=[Value]. Use 128, 192, 256, etc');
       WriteLn('--processor-count=[Value]. Use 1 or more');
       WriteLn;
+    end;
+
+  var
+    I: Ind;
+    N: Str;
+    V: I64;
+  begin
+    Result := False;
+    if Length(Parameters) = 0 then
+    begin
+      WriteHelp;
       Exit;
     end;
 
     ProcessorCount := LogicalProcessorCount;
     JumperCount := 256 * 1024;
     PartSize := 192 * 1024 - ReadMargin;
 
-    for I := 1 to High(Parameters) do
+    for I := 0 to High(Parameters) do
     begin
       N := Name(Parameters[I]);
       ToI64(Value(Parameters[I]), V);
@@ -403,10 +409,20 @@   TStationSummary = record
       else if N = 'part-size' then
         PartSize := (V * 1024) - ReadMargin
       else if N = 'processor-count' then
-        ProcessorCount := V;
+        ProcessorCount := V
+      else if N = 'help' then
+      begin
+        WriteHelp;
+        Exit;
+      end;
     end;
 
     AFilePath := Fix(Value(Parameters[0]));
+    if not Exists(FileSystemObject(AFilePath)) then
+    begin
+      WriteLn('File not found');
+      Exit;
+    end;
     Result := True;
   end;