diff options
Diffstat (limited to 'epostunit.pas')
-rw-r--r-- | epostunit.pas | 8 |
1 files changed, 6 insertions, 2 deletions
diff --git a/epostunit.pas b/epostunit.pas index d462fe8..3b5d21d 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -2078,7 +2078,7 @@ begin readALine(f,t); splitStrToInt(s+' '+t,iArr); if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[16]<>0) then begin - gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3); + gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+'): '+intArrayToStr(iArr),3); closeFile(f); exit; end; @@ -2113,7 +2113,11 @@ begin (dateien[i] as tAndorInputDateiInfo).berechneXStop; if (dateien[i].xSteps*dateien[i].tSiz <> iArr[8]) or (iArr[8]*j <> iArr[7]) then begin - gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3); + gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+'): '+intArrayToStr(iArr),3); + if dateien[i].xSteps*dateien[i].tSiz <> iArr[8] then + gibAus(' ' + intToStr(dateien[i].xSteps) + ' * ' + intToStr(dateien[i].tSiz) + ' <> ' +intToStr(iArr[8]),3); + if iArr[8]*j <> iArr[7] then + gibAus(intToStr(iArr[8]) + ' * ' + intToStr(j) + ' <> ' + intToStr(iArr[7]),3); closeFile(f); exit; end; |