[poli-smen]

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

Здравствуйте еще раз! Вот процедура:

Код:

procedure WriteWav(const FileName: String);

Сразу же вопрос. Зачем нужен параметр FileName если он в этой процедуре не используется?

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

Для записи Wav требуются

Код:

Header.ChunkID       := 'RIFF'
  Header.Format        := 'WAVE';
  Header.Subchunk1ID   := 'fmt ';
  Header.Subchunk1Size := 16;
  Header.AudioFormat   := $0001;
  Header.NumChannels   := 1;
  Header.SampleRate    := 22050;
  Header.BitsPerSample := BytsPerSample * 8;
  Header.BlockAlign    := Header.NumChannels * BytsPerSample;
  Header.ByteRate      := Header.SampleRate * Header.BlockAlign;
  Header.Subchunk2ID   := 'data';
  Header.Subchunk2Size := NumSamples * Header.BlockAlign;
  Header.ChunkSize     := Header.Subchunk2Size + SizeOf(Header) - 8;

Собственно вопрос: как сделать, чтобы данные не вводить, а считывать строки из memo2 ? Перед этим в memo2 записывается содержимое txt файла.
Наверное надо сделать как то так:

Код:

Header.ChunkID       := ReadString.Memo2('RIFF');

Но как-то правильнее....

Нет. Надо делать так:

Код:

Header.ChunkID := Memo2.Lines[X];

Где X - номер строки в Memo2 из которой нужно прочитать данные.