epostunit.pas: give filepos of syntax error

1 files changed, 23 insertions, 23 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 3321ff4..c689369 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -1806,13 +1806,13 @@ begin
       reset(f,1);
       readALine(f,s);
       if s<>'Andor Technology Multi-Channel File' then begin
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': erkenne Andor Datei nicht!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': erkenne Andor Datei nicht ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
       readALine(f,s);
       if s<>'65538 1' then begin
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': diese Andor Datei hält der strengen Prüfung nicht stand!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': diese Andor Datei hält der strengen Prüfung nicht stand ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1822,7 +1822,7 @@ begin
       try
         (dateien[i] as tAndorInputDateiInfo).temperatur:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Temperatur nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Temperatur nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1831,28 +1831,28 @@ begin
       try
         (dateien[i] as tAndorInputDateiInfo).belichtungsZeit:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Belichtungszeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Belichtungszeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
       try
         (dateien[i] as tAndorInputDateiInfo).zyklusZeit:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Zykluszeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Zykluszeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
       try
         (dateien[i] as tAndorInputDateiInfo).akkumulierteZyklusZeit:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': akkumulierte Zykluszeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': akkumulierte Zykluszeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
       try
         (dateien[i] as tAndorInputDateiInfo).akkumulierteZyklen:=strToInt64(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': akkumulierte Zyklen nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': akkumulierte Zyklen nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1860,14 +1860,14 @@ begin
       try
         (dateien[i] as tAndorInputDateiInfo).zyklusStapelZeit:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Zyklusstapelzeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Zyklusstapelzeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
       try
         (dateien[i] as tAndorInputDateiInfo).pixelAusleseZeit:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Pixelauslesezeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Pixelauslesezeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1876,7 +1876,7 @@ begin
       try
         (dateien[i] as tAndorInputDateiInfo).verstaerkungADW:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': ADW-Verstärkung nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': ADW-Verstärkung nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1885,7 +1885,7 @@ begin
       try
         readAnAndorString(f,(dateien[i] as tAndorInputDateiInfo).detektorTyp,strToInt64(s),true);
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Detektor-String nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Detektor-String nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1895,7 +1895,7 @@ begin
         (dateien[i] as tAndorInputDateiInfo).detektorGroesze['x']:=strToInt64(erstesArgument(s,' ',false));
         (dateien[i] as tAndorInputDateiInfo).detektorGroesze['y']:=strToInt64(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Detektorgröße nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Detektorgröße nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1906,7 +1906,7 @@ begin
       try
         readAnAndorString(f,(dateien[i] as tAndorInputDateiInfo).dateiName,strToInt64(s),true);
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': originaler Dateiname nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': originaler Dateiname nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1921,7 +1921,7 @@ begin
         (dateien[i] as tAndorInputDateiInfo).shutterZeit['x']:=strToFloat(erstesArgument(s,' ',false));
         (dateien[i] as tAndorInputDateiInfo).shutterZeit['y']:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Shutterzeit nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Shutterzeit nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1930,7 +1930,7 @@ begin
       try
         dateien[i].xStart:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': xStart nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': xStart nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1938,7 +1938,7 @@ begin
         for j:=0 to 2 do
           (dateien[i] as tAndorInputDateiInfo).xAchse[j]:=strToFloat(erstesArgument(s,' ',false));
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': x-Achsen Skalierung nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': x-Achsen Skalierung nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1949,7 +1949,7 @@ begin
         readAnAndorString(f,(dateien[i] as tAndorInputDateiInfo).datenTypTitel,false);
         readAnAndorString(f,(dateien[i] as tAndorInputDateiInfo).yAchsenTitel,false);
       except
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Achsenbeschriftung nicht lesbar!',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': Achsenbeschriftung nicht lesbar ('+intToStr(filePos(f))+')!',3);
         closeFile(f);
         exit;
       end;
@@ -1957,7 +1957,7 @@ begin
       readALine(f,t);
       splitStrToInt(s+' '+t,iArr);
       if (iArr[0]<>65541) or (iArr[9]<>65538) or (iArr[13]<>1) or (iArr[16]<>0) then begin
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf.',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3);
         closeFile(f);
         exit;
       end;
@@ -1977,7 +1977,7 @@ begin
       j:=(dateien[i] as tAndorInputDateiInfo).bildBereichStapel['y'] -
         (dateien[i] as tAndorInputDateiInfo).bildBereichStapel['x'] + 1;
       if j<>1 then begin
-        gibAus('So ein Mist - Ich kenn hier nur den Wert "1" in '''+dateien[i].name+'''.',3);
+        gibAus('So ein Mist - Ich kenn hier nur den Wert "1" in '''+dateien[i].name+''' ('+intToStr(filePos(f))+').',3);
         closeFile(f);
         exit;
       end;
@@ -1992,7 +1992,7 @@ 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.',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': inkonsistenter Kopf ('+intToStr(filePos(f))+').',3);
         closeFile(f);
         exit;
       end;
@@ -2008,7 +2008,7 @@ begin
         s:='falsch';
       end;
       if s<>'' then begin
-        gibAus('Syntax-Fehler in '''+dateien[i].name+''': vmtl. zu viele/wenige Daten.',3);
+        gibAus('Syntax-Fehler in '''+dateien[i].name+''': vmtl. zu viele/wenige Daten ('+intToStr(filePos(f))+').',3);
         closeFile(f);
         exit;
       end;
@@ -2036,13 +2036,13 @@ begin
           s:='falsch';
         end;
         if s<>'' then begin
-          gibAus('Syntax-Fehler in '''+dateien[i].name+''': vmtl. zu viele/wenige Daten.',3);
+          gibAus('Syntax-Fehler in '''+dateien[i].name+''': vmtl. zu viele/wenige Daten ('+intToStr(filePos(f))+').',3);
           closeFile(f);
           exit;
         end;
         readALine(f,s);
         if s<>'0' then begin
-          gibAus('Syntax-Fehler in '''+dateien[i].name+''': hier gibt es zusätzlich zum Hintergrund und den Daten noch mehr (eine Referenz?) - das versteh ich (noch) nicht.',3);
+          gibAus('Syntax-Fehler in '''+dateien[i].name+''': hier gibt es zusätzlich zum Hintergrund und den Daten noch mehr (eine Referenz?) - das versteh ich (noch) nicht ('+intToStr(filePos(f))+').',3);
           closeFile(f);
           exit;
         end;