untypisierte dateien - warum eine zugriffsverletzung(simpel)

[Alter Mann]

Hi KoRn117,

versuch es so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var datei : file;
    Buf: array[0..3] of Char;  <- 3 und nicht 4
    countt :integer;
    tmp : string;
    i : integer;
begin

assignFile(datei,'asd.wav');
reset(datei);

BlockRead(datei,buf,sizeof(buf),countt);

tmp:='';
for i:=0 to 3 do
  begin
  tmp:=tmp+buf[i];
  end;

showmessage(inttostr(countt));
showmessage(tmp);

closefile(datei);

end;