微調整

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

diff --git a/wav_proj.dproj b/wav_proj.dproj
index 0f66cf2..6f4f2c0 100644 (file)
--- a/wav_proj.dproj
+++ b/wav_proj.dproj
@@ -127,7 +127,7 @@
         <DCC_RemoteDebug>true</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
-        <Debugger_RunParams>toujyo.wav effect.wav 1 2</Debugger_RunParams>
+        <Debugger_RunParams>toujyo.wav effect.wav 1 3</Debugger_RunParams>
         <DCC_RemoteDebug>false</DCC_RemoteDebug>
     </PropertyGroup>
     <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">