[angvelem]

Интересный код:

Код:

procedure TForm1.Button6Click(Sender: TObject);
begin
if opendialog1.Execute then
E:= TFileStream.Create(OpenDialog1.FileName, fmOpenReadWrite);
E.Read(WaveHeader1, sizeof(TWaveHeader1));
with WaveHeader1 do
  begin
  RiffLen1:=Riffle;
  InfoLen1:=Infole;
  DataLen1:=Datale;
  WaveType1:=WaveTyp;
  Ch1:=C;
  Freq1:=Fre;
  BytesPerSec1:=BytesPerSe;
  align1:=alig;
  Bits1:=Bit;
  for i:=0 to 10000000 do
  data1[i]:=dat[i];
  E.Write(WaveHeader1, sizeof(TWaveHeader1));
  end;
end;