procedure TForm1.FileListBox1Change(Sender: TObject);
begin
Label1.Caption := '';
Label2.Caption := '';
Label3.Caption := '';
Label4.Caption := '';
Label5.Caption := '';
if FileListBox1.FileName <> '' then
begin
ReadWAV(FileListBox1.FileName, soubor);
if HeaderOK(soubor) then
begin
Label1.Caption := 'Hlavička souboru v pořádku - soubor rozpoznán';
case Soubor.FormatID of
1: Label2.Caption := 'Windows PCM';
2: Label2.Caption := 'Microsoft ADPCM';
6: Label2.Caption := 'A-LAW';
7: Label2.Caption := 'MU-LAW';
17: Label2.Caption := 'DVI/IMA ADPCM';
85: Label2.Caption := 'MPEG Layer III';
else
Label2.Caption := 'Neznámý formát';
end;

case Soubor.ChannelNumber of
0: Label3.Caption := 'Neznámý typ';
1: Label3.Caption := 'Mono';
2: Label3.Caption := 'Stereo';
end;

Label4.Caption := IntToStr(Soubor.BitsPerSample) + ' bit';
Label5.Caption := IntToStr(Soubor.SampleRate) + ' Hz';
end
else
Label1.Caption := 'Hlavička souboru není v pořádku - soubor nerozpoznán';
end;
end;
A to je pro dnešek vše. V některém z příštích dílu se určitě také podíváme na další zvukové formáty jako třeba MP3. Tento díl je zároveň první, ve kterém jsem se pokusil na základě reakcí některých čtenářů zlepšit čitelnost kódu zvýrazněním klíčových slov. Pokud vaše ohlasy budou kladné, začneme s tím od příště natrvalo.