Delphi-Quellcode:
closefile(reorg_artikeldatei);
close(artikeldatei)
Sicher daß das
Close richtig ist?
Nja, die fehlenden Resourcenschutzblöcke ignorier ich einfach mal und daß man eventuell mit Streams auch nicht schlecht arbeiten würde, wird auch nicht erwähnt und bei deinem binären Format hätte sich TReader/TWriter bestimmt auch nicht schlecht gemacht.
Und warum sind eigentlich die lokal genutzten Dateivariablen global definiert?
[edit]
Das doppelgemoppelte Löschen wurde schon erwähnt.