etwas ausfuehrlichere Fehlermeldungen bei Pruefsummendateifehlern

eingebaut

1 files changed, 8 insertions, 2 deletions

diff --git a/Make.lpr b/Make.lpr
index c69a64a..0f2b51c 100644
--- a/Make.lpr
+++ b/Make.lpr
@@ -256,15 +256,20 @@ var f:            textfile;
     gefunden,gut: boolean;
 begin
   result:=false;
-  if sumNam='' then exit;
+  if sumNam='' then begin
+    writeln('Leerer Name als Summendatei angegeben!');
+    exit;
+  end;
 
   if not fileexists(sumNam) then begin
     assignfile(f,sumNam);
     rewrite(f);
     closefile(f);
   end;
-  if not fileexists(sumNam) then
+  if not fileexists(sumNam) then begin
+    writeln('Ich bin nicht in der lage die bisher nicht existierende Date '''+sumNam+''' anzulegen!');
     exit;
+  end;
 
   gutschlecht:=testeSummen(sumNam);
 
@@ -291,6 +296,7 @@ begin
           dats[length(dats)-1]^.Datum:=0; // siehe oben
           continue;
         end;
+        writeln('In der Summendatei gibt es eine Datei mit gültiger Prüfsumme, die ich nicht finden kann: '''+gutschlecht[gut][i]+'''!');
         for gefunden:=false to true do
           gutschlecht[gefunden].free;
         exit;