werteunit.pas: raise exception -> fehler

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);