ShortWordを使い始めました

[sample-delphi/sample-DELPHI.git] / wav.pas

diff --git a/wav.pas b/wav.pas
index 0c66dc0..1c1289a 100644 (file)
--- a/wav.pas
+++ b/wav.pas
@@ -19,7 +19,7 @@ begin
     fp.ReadBuffer(waveFmtPcm, SizeOf(tWaveFormatPcm));
     Writeln('\83f\81[\83^\8c`\8e®\81F', waveFmtPcm.formatTag);
     Writeln('\83`\83\83\83\93\83l\83\8b\90\94\81F', waveFmtPcm.channels);
-    Writeln('\83T\83\93\83v\83\8a\83\93\83O\8eü\94g\90\94\81F', waveFmtPcm.sampleParSec);
+    Writeln('\83T\83\93\83v\83\8a\83\93\83O\8eü\94g\90\94\81F', waveFmtPcm.samplePerSec);
     Writeln('\83o\83C\83g\90\94\81@/\81@\95b\81F', waveFmtPcm.bytesPerSec);
     Writeln('\83o\83C\83g\90\94 \82w\83`\83\83\83\93\83l\83\8b\90\94\81F', waveFmtPcm.blockAlign);
     Writeln('\83r\83b\83g\90\94\81@/\81@\83T\83\93\83v\83\8b\81F', waveFmtPcm.bitsPerSample);