diff options
Diffstat (limited to 'epostunit.pas')
| -rw-r--r-- | epostunit.pas | 18 |
1 files changed, 9 insertions, 9 deletions
diff --git a/epostunit.pas b/epostunit.pas index 2573b34..99fe461 100644 --- a/epostunit.pas +++ b/epostunit.pas @@ -8199,21 +8199,21 @@ begin case zi.genauigkeit of gSingle: case qu.genauigkeit of - gSingle: zi.sWerte.integriereSingle(@(qu.sWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gDouble: zi.sWerte.integriereDouble(@(qu.dWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gExtended: zi.sWerte.integriereExtended(@(qu.eWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gSingle: zi.sWerte.integriere(pTLLWerteSingle(@(qu.sWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gDouble: zi.sWerte.integriere(pTLLWerteDouble(@(qu.dWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gExtended: zi.sWerte.integriere(pTLLWerteExtended(@(qu.eWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); end{of case}; gDouble: case qu.genauigkeit of - gSingle: zi.dWerte.integriereSingle(@(qu.sWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gDouble: zi.dWerte.integriereDouble(@(qu.dWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gExtended: zi.dWerte.integriereExtended(@(qu.eWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gSingle: zi.dWerte.integriere(pTLLWerteSingle(@(qu.sWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gDouble: zi.dWerte.integriere(pTLLWerteDouble(@(qu.dWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gExtended: zi.dWerte.integriere(pTLLWerteExtended(@(qu.eWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); end{of case}; gExtended: case qu.genauigkeit of - gSingle: zi.eWerte.integriereSingle(@(qu.sWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gDouble: zi.eWerte.integriereDouble(@(qu.dWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); - gExtended: zi.eWerte.integriereExtended(@(qu.eWerte),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gSingle: zi.eWerte.integriere(pTLLWerteSingle(@(qu.sWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gDouble: zi.eWerte.integriere(pTLLWerteDouble(@(qu.dWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); + gExtended: zi.eWerte.integriere(pTLLWerteExtended(@(qu.eWerte)),xMi,xMa,tMi,tMa,xOf,tOf,rtg); end{of case}; end{of case}; gibAus('... und fertig',1); |