Browse Source

* show usage if no parameters

git-svn-id: trunk@12747 -
marco 16 years ago
parent
commit
cb7f19e798
1 changed files with 6 additions and 0 deletions
  1. 6 0
      utils/fpdoc/fpclasschart.pp

+ 6 - 0
utils/fpdoc/fpclasschart.pp

@@ -715,6 +715,11 @@ var
 
 begin
   Result:=0;
+  if ParamCount=0 then
+    begin
+      Usage;
+      Halt(0);
+    end;
   DocLang:='';
   for i := 1 to ParamCount do
     ParseOption(ParamStr(i));
@@ -744,6 +749,7 @@ begin
   WriteLn(STitle);
   WriteLn(Format(SVersion, [FPCVersion, FPCDate]));
   WriteLn(SCopyright);
+ 
   InitOptions;
   Try
     E:=ParseCommandLine;