[Dmitry_DM]

Сообщение от poli-smen

Хм... Интересно ты программы пишешь...
Кстати пару ошибок я таки нашёл. Правда они редко будут проявляться, может даже почти никогда, но всё-же лучше без них
Вот здесь:

Код:

        if n>0 then
        begin
          f.Seek(wChankSize, soFromCurrent);
          Dec(wChankSize, n);
          if wChankSize<(SampleSize*Header.wChannels) then Break;
        end;

Должно быть так:

Код:

        if n>0 then
        begin
          n:=Header.wBlockAlign-n;
          f.Seek(n, soFromCurrent);
          Dec(wChankSize, n);
          if wChankSize<(SampleSize*Header.wChannels) then Break;
        end;

Теперь у меня с считыванием все в порядке! Спасибо! Хочу спросить: а можно ли как-то создать wav используя данные из Memo1 моей программы?