summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rwxr-xr-xMakebin1549552 -> 1550296 bytes
-rw-r--r--Make.lpr10
-rw-r--r--Make.lps11
3 files changed, 13 insertions, 8 deletions
diff --git a/Make b/Make
index d186f18..9efe5ad 100755
--- a/Make
+++ b/Make
Binary files differ
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>