微調整

[sample-delphi/sample-DELPHI.git] / wav_proj.dpr

diff --git a/wav_proj.dpr b/wav_proj.dpr
index f65ca75..6753803 100644 (file)
--- a/wav_proj.dpr
+++ b/wav_proj.dpr
@@ -15,7 +15,8 @@ var
   Buffer: array of ShortInt;
   size: integer;
 begin
-  size := (sp.endpos - sp.startpos) * sp.channels * sp.samplePerSec *
+  result := 0;
+  size := (sp.endpos - sp.startpos + 1) * sp.channels * sp.samplePerSec *
     sp.bitsPerSample div 8;
   SetLength(Buffer, size);
   try