Bitte korrigiere deine delphi-tags. Ansonsten: muss es read/write sein? Ich würde lieber Streams benutzen (übersichtlicher).
Ansonsten ist es immer riskant mit relativen Pfaden zu arbeiten. Schau dir mal Paramstr(0) und Extractfilepath an. Mir fiel in deinem QT was auf:
Delphi-Quellcode:
deletefile ('
world.save');
//Datei löschen
world:=false;
closefile(e);
assignfile (e,'
world.save.new');
reset (e);
ot:=true;
if ot=true
and (world=false)
then
nem:='
' ;
world:=true;
assignfile (w,nem);
assignfile (w,'
save\world.save');
reset (w);
assignfile (o,'
world.save') ;
///////// ab hier scheppert es immer/////
Hier benutzt du die Datei wieder! das muss doch schief gehen, oder?
Ratte