etwas aufgeräumt, warnen bei überzähligen Optionen

1 files changed, 22 insertions, 5 deletions

diff --git a/Make.lpr b/Make.lpr
index 30a5956..0574565 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -25,10 +25,27 @@ type
 
 procedure tMake.doRun;
 var
-  mach:     tMach;
-  errorMsg: string;
+  mach:          tMach;
+  errorMsg:      string;
+  lOpts,nonOpts: tStringList;
 begin
-  errorMsg:=checkOptions('A:D:P:alu','Ausgabe: Datei: Prüfsummen: alleSummenErneuern leise unsicher',true);
+  lOpts:=tStringList.create;
+  lOpts.add('Ausgabe:');
+  lOpts.add('Datei:');
+  lOpts.add('Prüfsummen:');
+  lOpts.add('alleSummenErneuern');
+  lOpts.add('leise');
+  lOpts.add('unsicher');
+  nonOpts:=tStringList.create;
+  errorMsg:=checkOptions('A:D:P:alu',lOpts,nil,nonOpts,true);
+  lOpts.free;
+  while nonOpts.count>0 do begin
+    if errorMsg<>'' then
+      errorMsg:=errorMsg+#10;
+    errorMsg:=errorMsg+'Überzähliges Argument '''+nonOpts[0]+'''!';
+    nonOpts.delete(0);
+  end;
+  nonOpts.free;
   if errorMsg<>'' then
     fehler(errorMsg+#10'Hilfe: man Make');
 
@@ -40,12 +57,12 @@ begin
   if hasOption('D','Datei') then
     mach.machDatei:=getOptionValue('D','Datei')
   else
-    mach.machDatei:=myReadLink('Machdatei');
+    mach.machDatei:='';
 
   if hasOption('P','Prüfsummen') then
     mach.pruefsummenDatei:=getOptionValue('P','Prüfsummen')
   else
-    mach.setzeGenerischePruefsummenDatei;
+    mach.pruefsummenDatei:='';
 
   gibAus('originale Regeln: '+inttostr(mach.anzOriAbh)+', originale Dateien: '+inttostr(mach.anzDats),3);
   mach.erzeugeRegeln;