- var
- f: file;
- buf : array[0..1023] of Char;
- begin
- AssignFile(f, dateiname);
- Reset(f, 1); // oder Rewrite(f, 1); um die Datei neu zu erstellen
- BlockRead(f, buf, 1024); // liest 1024 Bytes aus der Datei f
- CloseFile(f);
- end;