epostunit.pas: findeMaximum: Bildgröße mitspeichern

1 files changed, 6 insertions, 9 deletions

diff --git a/epostunit.pas b/epostunit.pas
index 3a1b6e2..9ac2885 100644
--- a/epostunit.pas
+++ b/epostunit.pas
@@ -6111,24 +6111,21 @@ begin
     append(outF)
   else
     rewrite(outF);
+  write(outF,
+    bezeichner + separator +
+    intToStr(_maxP['x']-_xSteps*byte(toroidal and (_maxP['x']*2>=_xSteps))) + separator +
+    intToStr(_maxP['y']-_tSiz*byte(toroidal and (_maxP['y']*2>=_tSiz))) + separator +
+    intToStr(_xSteps) + separator +
+    intToStr(_tSiz) + separator);
   case genauigkeit of
     gSingle:
       writeln(outF,
-        bezeichner + separator +
-        intToStr(_maxP['x']-_xSteps*byte(toroidal and (_maxP['x']*2>=_xSteps))) + separator +
-        intToStr(_maxP['y']-_tSiz*byte(toroidal and (_maxP['y']*2>=_tSiz))) + separator +
         myFloatToStr(sWerte.werte[_maxP['x'] + _maxP['y']*_xSteps]));
     gDouble:
       writeln(outF,
-        bezeichner + separator +
-        intToStr(_maxP['x']-_xSteps*byte(toroidal and (_maxP['x']*2>=_xSteps))) + separator +
-        intToStr(_maxP['y']-_tSiz*byte(toroidal and (_maxP['y']*2>=_tSiz))) + separator +
         myFloatToStr(dWerte.werte[_maxP['x'] + _maxP['y']*_xSteps]));
     gExtended:
       writeln(outF,
-        bezeichner + separator +
-        intToStr(_maxP['x']-_xSteps*byte(toroidal and (_maxP['x']*2>=_xSteps))) + separator +
-        intToStr(_maxP['y']-_tSiz*byte(toroidal and (_maxP['y']*2>=_tSiz))) + separator +
         myFloatToStr(eWerte.werte[_maxP['x'] + _maxP['y']*_xSteps]));
   end{of case};
   close(outF);