[poli-smen]

Сообщение от Dmitry_DM

Понятно! Просто я в код не заглядывал детально.

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

Код:

        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;