Diese bösen kleinen Fehlerteufelchen
Wenn wir den Quelltext genau betrachten, fällt auf, das die Datei-Segment-Nummer bei 0 beginnt.
In der Methode DoSaveToFile steht:
Delphi-Quellcode:
if Datei.SegmentNr > 1 then
todatei.Seek (Datei.SegmentNr * Datei.SegmentSize, soBeginning);
Folglich wird das 0. Segment an den Anfang geschrieben, das erste Segment an den Anfang geschrieben, das zweite Segment dahinter geschrieben, das dritte Segment dahinter geschrieben ... *Wir könnten dies noch bis ins unendliche fortführen*
Wenn ich das 0. Segment mit dem Ersten überschreibe, kann doch keine vernünftige Datei herauskommen.
Ich frage mich nur, warum das bei ZIP Archiven, Bildern, etc nicht aufgefallen ist...
Vielen Dank, DGL-luke für das Treten in die richtige Richtung
