diff options
Diffstat (limited to 'Make.lpr')
-rw-r--r-- | Make.lpr | 10 |
1 files changed, 8 insertions, 2 deletions
@@ -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; |