Browse Source

+ show help when run without any parameters

git-svn-id: branches/z80@44601 -
nickysn 5 years ago
parent
commit
fffeb56a55
1 changed files with 7 additions and 0 deletions
  1. 7 0
      utils/ihx2tzx/ihx2tzx.lpr

+ 7 - 0
utils/ihx2tzx/ihx2tzx.lpr

@@ -63,6 +63,13 @@ var
   NonOptions: TStringArray;
   NonOptions: TStringArray;
   BasicProgram: AnsiString;
   BasicProgram: AnsiString;
 begin
 begin
+  if ParamCount = 0 then
+  begin
+    WriteHelp;
+    Terminate;
+    Exit;
+  end;
+
   // quick check parameters
   // quick check parameters
   ErrorMsg:=CheckOptions(ShortOptions, LongOptions);
   ErrorMsg:=CheckOptions(ShortOptions, LongOptions);
   if ErrorMsg<>'' then begin
   if ErrorMsg<>'' then begin