Советы по Delphi. Версия 1.0.6

 Ki.yyy[N]:=1.0*ChunkSize.chrs[1];
 Ki.yyy[N+1]:=1.0*ChunkSize.chrs[3];
 Kj.yyy[N]:=1.0*ChunkSize.chrs[0];
 Kj.yyy[N+1]:=1.0*ChunkSize.chrs[2];
 N:= N+2;
 end;
 end;
 if N<=MaxN then begin {LastN:= N;}
 Ki.Last:= N;
 if Ki.WAV.nChannels=2 then Kj.Last := N;
 end else begin {lastn := maxn;}
 Ki.Last:= MaxN;
 if Ki.WAV.nChannels=2 then Kj.Last := MaxN;
 end;
 end;
end; {ReadOneDataBlock}

procedure ReadWAVFile(var Ki, K : Observation);
var MM: Byte;
 I: Integer;
 OK: Boolean;
 NoDataYet: Boolean;
 DataYet: Boolean;
 nDataBytes: LongInt;
begin
if FileExists(StandardInput)then with Ki.WAV do begin { Вызов диалога открытия файла }
 OK:= True; {если не изменится где-нибудь ниже}
 {Приготовления для чтения файла данных}
 AssignFile(InFile, StandardInput); { Файл, выбранный в диалоговом окне }
 Reset(InFile);
 {Считываем ChunkName "RIFF"}
 ReadChunkName;
 if ChunkName<>'RIFF' then OK:= False;
 {Считываем ChunkSize}
 ReadChunkSize;
 RIFFSize:= ChunkSize.lint; {должно быть 18,678}
 {Считываем ChunkName "WAVE"}
 ReadChunkName;
 if ChunkName<>'WAVE' then OK:= False;
 {Считываем ChunkName "fmt_"}
 ReadChunkName;
 if ChunkName<>'fmt ' then OK:= False;
 {Считываем ChunkSize}
 ReadChunkSize;
 fmtSize:= ChunkSize.lint; {должно быть 18}
 {Считываем formatTag, nChannels}
 ReadChunkSize;
 ChunkSize.x:= M1;
 formatTag:= ChunkSize.up;
 nChannels:= ChunkSize.dn;
 {Считываем nSamplesPerSec}
 ReadChunkSize;
 nSamplesPerSec := ChunkSize.lint;
 {Считываем nAvgBytesPerSec}
 ReadChunkSize;
 nAvgBytesPerSec:= ChunkSize.lint;
 {Считываем nBlockAlign}
 ChunkSize.x:= F0;
 ChunkSize.lint:= 0;
 for i:= 0 to 3 do begin
 Read(InFile, MM);
 ChunkSize.chrs[I]:= MM;
 end;
 ChunkSize.x:= M1;
 nBlockAlign:= ChunkSize.up;
 {Считываем nBitsPerSample}
 nBitsPerSample:= ChunkSize.dn;
 for I:= 17 to fmtSize do Read(InFile,MM);
 NoDataYet:= True;
 while NoDataYet do begin
{Считываем метку блока данных "data"}
 ReadChunkName;
 {Считываем DataSize}
 ReadChunkSize;
 DataSize:= ChunkSize.lint;
 if ChunkName <> 'data' then begin
 for I:= 1 to DataSize do {пропуск данных, не относящихся к набору звуковых данных}
 Read(InFile, MM);
 end else NoDataYet:= False;
 end;
 nDataBytes:= DataSize;
 {Наконец, начинаем считывать данные для байтов nDataBytes}
 if nDataBytes>0 then DataYet:= True;
 N:=0; {чтение с первой позиции}
 while DataYet do begin
 ReadOneDataBlock(Ki,Kj); {получаем 4 байта}
 nDataBytes:= nDataBytes-4;
 if nDataBytes<=4 then DataYet:= False;
 end;
 ScaleData(Ki);
 if Ki.WAV.nChannels=2 then begin Kj.WAV:= Ki.WAV;
 ScaleData(Kj);
 end;
 {Освобождаем буфер файла}
 CloseFile(InFile);
 end else begin
 InitSpecs;{файл не существует}
 InitSignals(Ki);{обнуляем массив "Ki"}
 InitSignals(Kj);{обнуляем массив "Kj"}
 end;
end; { ReadWAVFile}

{================= Операции с набором данных ====================}
const MaxNumberOfDataBaseItems = 360;
type SignalDirectoryIndex = 0..MaxNumberOfDataBaseItems;

VAR DataBaseFile: file of Observation;
LastDataBaseItem: LongInt; {Номер текущего элемента набора данных}
ItemNameS: array[SignalDirectoryIndex] of String[40];

procedure GetDatabaseItem(Kk : Observation; N : LongInt);
begin
 if N<MaxNumberOfDataBaseItems then begin
 Seek(DataBaseFile, N);
 Read(DataBaseFile, Kk);
 end else InitSignals(Kk);
end; {GetDatabaseItem}