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

1 files changed, 11 insertions, 7 deletions

diff --git a/dateibeziehungen.pas b/dateibeziehungen.pas
index cfcfd45..135264f 100644
--- a/dateibeziehungen.pas
+++ b/dateibeziehungen.pas
@@ -74,7 +74,6 @@ type
     procedure erzeugeRegeln;
     procedure findeWasZuTunIst;
     procedure tueWasZuTunIst(allesNeu, unsicher: boolean; ausgabeDatei: string);
-    procedure setzeGenerischePruefsummenDatei;
     function anzOriAbh: longint; inline;
     function anzMglAbh: longint; inline;
     function anzZtAbh: longint; inline;
@@ -86,7 +85,7 @@ function quellersetzung(var worin: string; quelle, inputfile: string): boolean;
 implementation
 
 uses
-  lowlevelunit, mystringlistunit;
+  lowlevelunit, mystringlistunit, systemunit;
 
 // tAbhaengigkeiten ************************************************************
 
@@ -352,6 +351,14 @@ end;
 
 procedure tMach.wMachDatei(md: string);
 begin
+  if md='' then begin
+    md:=pwd+'/';
+    while (md<>'/') and not fileexists(md+'Machdatei') do begin
+      delete(md,length(md),1);
+      md:=extractfilepath(md);
+    end;
+    md:=md+'Machdatei';
+  end;
   _machDatei:=md;
   if not fileexists(_machDatei) then
     fehler('Datei '''+_machDatei+''' existiert nicht!');
@@ -361,6 +368,8 @@ end;
 
 procedure tMach.wPruefsummenDatei(pd: string);
 begin
+  if pd='' then
+    pd:=extractfilepath(machDatei)+'.summen';
   _pruefsummenDatei:=pd;
   if not liesPruefsummenfile then
     fehler('Datei '''+_pruefsummenDatei+''' ist fehlerhaft!');
@@ -839,11 +848,6 @@ begin
   geaenderteDateien.free;
 end;
 
-procedure tMach.setzeGenerischePruefsummenDatei;
-begin
-  pruefsummenDatei:=extractfilepath(machDatei)+'.summen';
-end;
-
 function tMach.anzOriAbh: longint;
 begin
   result:=_oriAbh.count;