Zitat von
sk0r:
ReSet(hDat, 1024); //Öffnen, falls sie existiert.
Damit öffnest du die Datei mit einer Blockgröße von 1024. Das bedeutet, dass der Dritte Parameter bei BlockWrite in Einheiten von 1024 Bytes angegeben wird. Also bei BlockWrite(hDat, bByteDat, 1) werden 1024 Bytes kopiert, bei BlockWrite(hDat, bByteDat, 2) werden 2048 Bytes kopiert usw.
Was du brauchst ist eine Blockgröße von 1. Also Reset(hDat, 1); Dann entspricht der dritte Parameter einer Einheit von einem Byte.
Aber warum nimmst du nicht gleich einen TFileStream her die die alten TurboPascal Funktionen ersetzen.