diff options
| -rw-r--r-- | werteunit.pas | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/werteunit.pas b/werteunit.pas index 0670b09..340d3a7 100644 --- a/werteunit.pas +++ b/werteunit.pas @@ -1022,8 +1022,10 @@ begin if invers then gibAus('fft: Warnung, hier wird bei einer inversen FFT gefenstert - soll das so sein?',1); offset:=byte(not invers)*hg; - if length(fen.Werte)<>pmax+1 then - fen.berechneWerte(pmax+1); + if length(fen.Werte)<>pmax+1 then begin + gibAus('Die Breite des FFT-Fensters ('+inttostr(length(fen.Werte))+') ist nicht gleich der Breite der Werte ('+inttostr(pmax+1)+')!',1); + exit; + end; for i:=smin to smax do // Werte fenstern for j:=0 to pmax do werte[i*sstep+j*pstep]:= |