手直ししました

処理には数分かかることもあるので小さめのファイルを気長に処理してください。
処理前の音声を削除するよう書き直しました。

diff --git a/effect.pas b/effect.pas
index 1c6796b..3977703 100644 (file)
--- a/effect.pas
+++ b/effect.pas
@@ -149,7 +149,9 @@ begin
       q := trunc(m);
       for a := q - j div 2 to q + j div 2 do
         if (a >= sp.posOfData) and (a < k) then
-          pMem[i] := pMem[a] + pCpy[a] * trunc(sinc(pi * (m - a)));
+          pMem[i] := pMem[a] + pCpy[a] * trunc(sinc(pi * (m - a)))
+        else
+          pMem[i] := 0;
     end;
   except
     result := -1;