diff options
| author | Erich Eckner <git@eckner.net> | 2017-07-14 11:48:32 +0200 |
|---|---|---|
| committer | Erich Eckner <git@eckner.net> | 2017-07-14 11:48:32 +0200 |
| commit | 8855bcb10bf294e4ce6f4c828352ec3114690b59 (patch) | |
| tree | 7775b9c42ab2cd4bb4aa6f7a5e91cd36aaab85c2 | |
| parent | d177cb05468f7bfbe6cb225867d1d63e4cdfbb9f (diff) | |
| download | epost-8855bcb10bf294e4ce6f4c828352ec3114690b59.tar.xz | |
werteunit.pas: bail out on wrong window size rather than (not thread safe) correcting it
| -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]:= |