manpage update, Hilfe aus Programm entfernt

1 files changed, 1 insertions, 18 deletions

diff --git a/Make.lpr b/Make.lpr
index 030e0c5..7ebbfa9 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -19,7 +19,6 @@ type
     procedure doRun; override;
   public
     constructor create(theOwner: tComponent); override;
-    procedure writeHelp; virtual;
   end;
 
 function liesPruefsummenfile(sumNam: string; var dats: tDateienMitDaten): boolean;
@@ -387,21 +386,14 @@ var
   inputfile,pruefsummenfile,errorMsg:      string;
   mglAbhaengigkeiten,zutunAbhaengigkeiten: tAbhaengigkeiten;
   dateien:                                 tDateienMitDaten;
-  i:                                       longint;
 begin
-  errorMsg:=checkOptions('A:HWD:P:au','Ausgabe: Hilfe Watte Datei: Prüfsummen: alleSummenErneuern unsicher');
+  errorMsg:=checkOptions('A:WD:P:au','Ausgabe: Watte Datei: Prüfsummen: alleSummenErneuern unsicher');
   if errorMsg<>'' then begin
     showException(exception.create(errorMsg+#10'Hilfe: '+exename+' -H/--Hilfe'));
     terminate;
     exit;
   end;
 
-  if hasOption('H','Hilfe') then begin
-    writeHelp;
-    terminate;
-    exit;
-  end;
-
   if (getOptionValue('A','Ausgabe')='') and not hasOption('W','Watte') then begin
     showException(exception.create('Ausgabedatei wird benötigt!'));
     terminate;
@@ -437,9 +429,6 @@ begin
     exit;
   end;
 
-  for i:=0 to length(dateien)-1 do
-    writeln(dateien[i].aktuell,' ',dateien[i].name);
-
   writeln('Regeln: '+inttostr(length(mglAbhaengigkeiten))+', Dateien: '+inttostr(length(dateien)));
   findeWasZuTunIst(mglAbhaengigkeiten,zuTunAbhaengigkeiten,dateien,inputfile);
   writeln('anzuwendende Regeln: '+inttostr(length(zuTunAbhaengigkeiten)));
@@ -454,12 +443,6 @@ begin
   stopOnException:=True;
 end;
 
-procedure tMake.writeHelp;
-begin
-  writeln('Verwendung:');
-  writeln(' ',exeName,' -A/--Ausgabe $ausgabedatei -H/--Hilfe -W/--Watte -D/--Datei $Machdatei -P/--Prüfsummen $Prüfsummendatei -a/--alleSummenErneuern -u/--unsicher');
-end;
-
 var
   application: tMake;
 begin