[Roman Go]

Код:

var
 *Form1: TForm1;
 *i, i1:integer;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var f:file;
 * *buf:char;

begin
 * *//i:=0;
 * *assignfile(f,'1.wav');
 * *reset(f, 1);
 * *seek(f, i);
 * *BlockRead(f, buf, 1);
 * *memo1.Lines.Add(buf);
 * *closefile(f);
 * *i:=i+1;
end;

procedure TForm1.Button2Click(Sender: TObject);
var f:file;
 * *buf:integer;
 * *p:^integer;
begin
 * *//i:=0;
 * *assignfile(f,'1.wav');
 * *reset(f, 1);
 * *seek(f, i1);
 * *BlockRead(f, buf, 1);
 * *p:=@buf;
 * *memo2.Lines.Add(inttostr(p^));
 * *closefile(f);
 * *i1:=i1+1;
end;

Данные то я прочитал, только вот проблема то в том, что я явно не то читаю, что мне нужно, когда читаю по символьно, то выводит непонятно что, а когда предпологаю чтение чисел у меня всегда идут, какие-то цифры, даже там где по идее должны быть буквы... то что там указатели есть, так это я подумал может там храняться указатели на нужные мне значения пытался их достать, глупость конечно... но раз уж набрал так пусть остается

---

возможно я не с того конца начал, для начала я не пойму что это за формат, http://*http://graphics.cs.msu.su/co...elp/wavfmt.htm мне ничего не понятно кроме общих слов, "от начала на столько то" а вот на сколько, и как это сколько отступить не понимаю... неполучается... Что это ch, ah, h и как с ними работать...

[s]Исправлено: Roman Go, 6:37 10-12-2002[/s]