2
0
Эх сурвалжийг харах

+ show help when run without any parameters

git-svn-id: branches/z80@44601 -
nickysn 5 жил өмнө
parent
commit
fffeb56a55

+ 7 - 0
utils/ihx2tzx/ihx2tzx.lpr

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