[Dmitry_DM]

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

Здесь должно быть так:

Код:

      Inc(i);
      s1:='';
      s:=''+IntToStr(i);
      for chanel := 1 to Header.wChannels do
      begin
        f.ReadBuffer(sample, SampleSize);
        Dec(wChankSize, SampleSize);
        s:=s+' Chanel'+IntToStr(chanel)+' '+IntToHex(sample, SampleSize*2);
        s1:=s1+IntToHex(sample, SampleSize*2);//  <=======
      end;
      Form1.Memo1.Lines.Add(s1);

А для каких целей в этом коде используется переменная s ?

Да и правда S не нужно. Но этот код просто дублирует первый канал. а в wav файле не всегда так. Вот когда изначально было, тогда где-то в середине уже расходились значения каналов. В этом то и суть двух каналов Так должно быть, разве нет? Хотя есть и недоразумение: в том Hex Editor Neo и правда дублируются каналы. Хотя я точно помню, что когда я первый раз использовал ваш первоначальный код, каналы не везде, но расходились значениями, или так как раз не должно было быть?