diff options
| -rw-r--r-- | epostunit.pas | 15 |
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); |