TextFile hat eine "kranke" Einstellung der Puffergröße von (maxinmal) 128 Byte.
Nicht maximal, sondern default. Für größere Puffer gibt's
procedure SetTextBuf(var F: Text; var Buf; Size: Integer);
Dieses Verhalten tritt auch mit einem größeren Buffer ein ... es kommt also immer dazu, daß irgendwo nur Teile von Sektoren geschrieben werden.
Über die größe des Buffers kann man nur die Häufigkeit regeln.
zum Default
Zitat:
- einen größeren Buffer einstellen