Dateien zerlegen und zusammenfügen

[marabu]

Hallo.

Im gezeigten Code scheint F vom Typ File zu sein - sonst macht Seek() keinen Sinn. Beim Öffnen der Datei muss die Satzgröße 1 angegeben werden, sonst können nur Dateien korrekt verarbeitet werden, deren Größe ein Vielfaches von 128 (Standard-Satzgröße) ist. Das Schieben des Satzzeigers von einem zum nächsten Datensatz macht eigentlich keinen Sinn, da die Anzahl der Bytes in einer Datei nicht durch Abzählen, sondern direkt über die Metadaten des Dateisystems (FileSize - hallo Hawkeye) ermittelt werden kann. In keinem Fall ist es notwendig den Schreibschutz aufzuheben, da die Datei nur gelesen werden soll.

Für das Zerlegen beliebiger Dateien in mundgerechte Stücke ist TFileStream die bessere Lösung, da diese Komponente direkt auf dem Dateisystem aufsetzt. Die Implementierung von File und TextFile stand noch sehr stark unter dem Eindruck von CP/M.

Grüße vom marabu