Datei byteweise einlesen

[mr_emre_d]

Delphi-Quellcode:

var
  F: File of Byte;
  X: Array of Byte;
begin
  AssignFile( F, '<Path>' );
  // Falls Datei existiert, dann öffnen und FilePointer reseten
  Reset( F );
  // und wenn nicht, dann erstellen + öffnen usw ..
  Rewrite( F );
  
  SetLength( X, FileSize( F ) );
  // lesen:
  BlockRead( F, X[0], Length(X) );
  // schreiben
  BlockWrite( F, X[0], Length(X) );

  // Filepointer setzen:
  Seek( F, 0 );

  // Anschließend schließen - falls etwas geändert wurde, wirds gespeichert
  CloseFile( F );
end;