diff options
| -rw-r--r-- | werteunit.pas | 32 |
1 files changed, 16 insertions, 16 deletions
diff --git a/werteunit.pas b/werteunit.pas index 2b4a5ef..24d2c99 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -189,7 +189,7 @@ begin for i:=1 to length(maxima)-1 do if werte[maxima[i-1]['x']+maxima[i-1]['y']*params.xSteps]<werte[maxima[i]['x']+maxima[i]['y']*params.xSteps]then - raise exception.create('Interner Fehler: Maxima sind nicht sortiert, sollten sie aber sein!'); + fehler('Interner Fehler: Maxima sind nicht sortiert, sollten sie aber sein!'); end; constructor tLLWerte.create(ps: tExtraInfos); @@ -1265,7 +1265,7 @@ begin end; end; else - raise exception.create('Nachbearbeitungsmethode '+fftDoToStr(nB)+' nicht implementiert!'); + fehler('Nachbearbeitungsmethode '+fftDoToStr(nB)+' nicht implementiert!'); end{of case}; end; @@ -1298,7 +1298,7 @@ begin // bearbeitet nur den Hauptteil (außer erster und mittlerer Zeile/Spalte) end; end; else - raise exception.create('Nachbearbeitungsmethode '+fftDoToStr(nB)+' nicht implementiert!'); + fehler('Nachbearbeitungsmethode '+fftDoToStr(nB)+' nicht implementiert!'); end{of case} end; @@ -1386,7 +1386,7 @@ begin end; end; else - raise exception.create('Nachbearbeitungsmethode '+fftDoToStr(nB)+' verdoppelt die Anzahl der Daten nicht!'); + fehler('Nachbearbeitungsmethode '+fftDoToStr(nB)+' verdoppelt die Anzahl der Daten nicht!'); end{of case}; end; @@ -1396,10 +1396,10 @@ var begin hLen:=params.tSiz div 2; if not params.istKomplex then - raise exception.create('Komplexe FFT2dNachbearbeitung geht nur mit vollkomplexen Werten!'); + fehler('Komplexe FFT2dNachbearbeitung geht nur mit vollkomplexen Werten!'); case nB of doResIms,doResSmi,doRes: - raise exception.create('Vollkomplexe Werte können nicht auf die Hälfte komprimiert werden!'); + fehler('Vollkomplexe Werte können nicht auf die Hälfte komprimiert werden!'); doBetr: for j:=0 to hLen-1 do for i:=xMin to xMax do @@ -1416,11 +1416,11 @@ begin sqr(extended(werte[i+(j+hLen)*params.xSteps])); doAlleResIms: ; doAlleResSmi: - raise exception.create('Nachbearbeitungsmethode '+fftDoToStr(nB)+' ist aus Faulheit noch nicht implementiert -- mach''s doch einfach!'); + fehler('Nachbearbeitungsmethode '+fftDoToStr(nB)+' ist aus Faulheit noch nicht implementiert -- mach''s doch einfach!'); doGetrennt: - raise exception.create('fft2dNachbearbeitungKomplex kann Werte nicht getrennt speichern!'); + fehler('fft2dNachbearbeitungKomplex kann Werte nicht getrennt speichern!'); else - raise exception.create('fft2dNachbearbeitungKomplex kennt Nachbearbeitungsmethode '+fftDoToStr(nB)+' noch nicht!'); + fehler('fft2dNachbearbeitungKomplex kennt Nachbearbeitungsmethode '+fftDoToStr(nB)+' noch nicht!'); end{of case}; end; @@ -1975,14 +1975,14 @@ begin if (betraege.params.tSiz*istVollKomplex <> params.tSiz) or (betraege.params.xSteps <> params.xSteps) or (not (istVollKomplex in [1,2])) then - raise exception.create( + fehler( 'Die Dimension der Beträge ('+intToStr(betraege.params.xSteps)+' x '+intToStr(betraege.params.tSiz)+') stimmt nicht mit '+ 'der Dimension der Werte ('+intToStr(params.xSteps)+' x '+intToStr(params.tSiz)+') -- oder deren ersten t-Hälfte -- überein ('+intToStr(istVollKomplex)+')!'); if einseitig then begin if istVollKomplex<>2 then - raise exception.create('Kann nur voll komplexe Werte einseitig per Kantenfilter filtern ('+intToStr(istVollKomplex)+')!'); + fehler('Kann nur voll komplexe Werte einseitig per Kantenfilter filtern ('+intToStr(istVollKomplex)+')!'); if filterTyp<>kfHochpass then - raise exception.create('Kann nur einen Hochpass als einseitigen Kantenfilter verwenden!'); + fehler('Kann nur einen Hochpass als einseitigen Kantenfilter verwenden!'); end; setLength(maxima,0); @@ -2110,7 +2110,7 @@ begin tM:=params.tSiz div (1+byte(params.istKomplex)); if (xV<0) or (xB<0) or (tV<0) or (tB<0) or (xV>=xM) or (xB>=xM) or (tV>=tM) or (tB>=tM) then - raise exception.create('Fehler: Das Startrechteck ('+intToStr(xV)+'-'+intToStr(xB)+'x'+intToStr(tV)+'-'+intToStr(tB)+') liegt nicht vollsändig in den Daten ('+intToStr(xM)+'x'+intToStr(tM)+').'); + fehler('Fehler: Das Startrechteck ('+intToStr(xV)+'-'+intToStr(xB)+'x'+intToStr(tV)+'-'+intToStr(tB)+') liegt nicht vollsändig in den Daten ('+intToStr(xM)+'x'+intToStr(tM)+').'); for imPart:=false to params.istKomplex do for xS:=xV to xB do for tS:=tV to tB do begin @@ -2168,7 +2168,7 @@ begin werte[i+j*params.xSteps]*cos(arg); end; else - raise exception.create('Komplexmachmodus nicht implementiert ('+intToStr(integer(kmm))+')!'); + fehler('Komplexmachmodus nicht implementiert ('+intToStr(integer(kmm))+')!'); end{of case}; end; @@ -2180,9 +2180,9 @@ var wert,weLi,weOb,weRe,weUn: extended; begin if params.istKomplex then - raise exception.create('Heiße Pixel können (noch) nicht aus voll komplexen Werten entfernt werden!'); + fehler('Heiße Pixel können (noch) nicht aus voll komplexen Werten entfernt werden!'); if minusSchwelle>plusSchwelle then - raise exception.create('Unterer Schwellwert ('+floatToStr(minusSchwelle)+') liegt über dem oberen Schwellwert ('+floatToStr(plusSchwelle)+')!'); + fehler('Unterer Schwellwert ('+floatToStr(minusSchwelle)+') liegt über dem oberen Schwellwert ('+floatToStr(plusSchwelle)+')!'); schwelle:=(schwelle+1)/4; setLength(heiszePixel,0); setLength(pixelHitze,0); |