etwas ausfuehrlichere Fehlermeldungen bei Pruefsummendateifehlern

eingebaut

3 files changed, 13 insertions, 8 deletions

diff --git a/Make b/Make
index d186f18..9efe5ad 100755
--- a/Make
+++ b/Make
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;
diff --git a/Make.lps b/Make.lps
index ea7ea27..0a64b6b 100644
--- a/Make.lps
+++ b/Make.lps
@@ -8,9 +8,9 @@
         <Filename Value="Make.lpr"/>
         <IsPartOfProject Value="True"/>
         <IsVisibleTab Value="True"/>
-        <TopLine Value="663"/>
-        <CursorPos X="65" Y="691"/>
-        <FoldState Value=" T3i70C5 pl5lT0p3 pjLkb0B4132"/>
+        <TopLine Value="46"/>
+        <CursorPos X="6" Y="50"/>
+        <FoldState Value=" T3i70C5 pl5lT0v3 pjLl00B4]I6lR0{R3r"/>
         <UsageCount Value="47"/>
         <Loaded Value="True"/>
       </Unit0>
@@ -26,7 +26,6 @@
         <EditorIndex Value="1"/>
         <TopLine Value="24"/>
         <CursorPos Y="74"/>
-        <FoldState Value=" T3T073 pjbk90D2x"/>
         <UsageCount Value="26"/>
         <Loaded Value="True"/>
       </Unit2>
@@ -171,11 +170,11 @@
       </Position28>
       <Position29>
         <Filename Value="Make.lpr"/>
-        <Caret TopLine="19"/>
+        <Caret Line="111" Column="85" TopLine="88"/>
       </Position29>
       <Position30>
         <Filename Value="Make.lpr"/>
-        <Caret Line="111" Column="85" TopLine="88"/>
+        <Caret Line="617" TopLine="20"/>
       </Position30>
     </JumpHistory>
   </ProjectSession>