diff options
-rwxr-xr-x | Make | bin | 1549552 -> 1550296 bytes | |||
-rw-r--r-- | Make.lpr | 10 | ||||
-rw-r--r-- | Make.lps | 11 |
3 files changed, 13 insertions, 8 deletions
Binary files differ @@ -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; @@ -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> |