summaryrefslogtreecommitdiff
path: root/Make.lpr
diff options
context:
space:
mode:
Diffstat (limited to 'Make.lpr')
-rw-r--r--Make.lpr10
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;