Hallo Community,
Ich habe hier folgenden Code:

zusammenfalten · markieren

Delphi-Quellcode:

var f,g:file; read,written,recsize,BufSize:Integer; Buffer:array of Byte;
begin
  recsize:=1;
  AssignFile(f,ExtractFilePath(Paramstr(0))+'Neu Textdokument.txt');
  {$I-}
  Reset(f,recsize);
  {$I+}
  if (IOResult = 0) then
  begin
    AssignFile(g,ExtractFilePath(Paramstr(0))+'Neu Textdokument2.txt');
    {$I-}
    ReWrite(g,recsize);
    {$I+}
    if (IOResult = 0) then
    begin
      BufSize:=SizeOf(Buffer);
      repeat
        BlockRead(f,Buffer,BufSize,read);
        Listbox1.Items.Add('Bytes read: '+inttostr(read));
        BlockWrite(g,Buffer,read,written);
        Listbox1.Items.Add('Bytes written: '+inttostr(written));
      until read < BufSize;
      CloseFile(g);
    end;
    CloseFile(f);
  end;
end;

Nach CloseFile(f) erhalte ich eine AV und ich weiß überhaupt nicht wieso. Könnte mir das einer von euch erklären?

Entweder Buffer: [byte] of byte oder SetLength(Buffer, 256) irgendwo am Anfang sollte das Problem lösen...

Grüße vom marabu

kA wieso, aber SetLength klappt nicht (hatte ich auch vorher schon versucht). Jedoch funktioniert dein Buffer: [byte] of byte. Kann mir jemand noch sagen, wo darin der Unterschied liegt?