Zitat von
0xDEAD:
Mit nem packed record klappt es wirklich!
Aber das Umstellen von 8 auf 1 in den Projekt Optionen hat nicht hingehauen.
Die Umstellung in den Optionen ist auch nicht nötig, denke ich. Die Anweisung
packed record
in der Typ-Deklaration sollte reichen.
TFileStream und BlockRead füllen einen Buffer... sollte bei beiden gleich gut (oder schlecht) funktionieren.
PS: Wenn wir schon dabei sind, falls der Typ "Real" auftaucht, ist da evtl. auch der Tausch mit Real48 nötig (solche Datenbanken hab' ich hier noch zu Hauf)