EInOutError mit Write

[TheReaper]

Guten Morgen!

Ich hab seit neuestem ein Problem mit dem Code:

Delphi-Quellcode:

...

for i:=delete to (filesize(f1)-1) do
begin
   seek(f1,i);
   read(f1,liste);
   seek(f1,i-1);
   Write(f1,liste); //<-- Hier ist der Fehler
end;
seek(f1,filesize(f1)-1);
truncate(f1);

...

Es kommt ein EInOutError mit Fehlercode 2 (Dateizugriff verweigert). Ich hab allerdings keinen blassen schimmer warum. Die Prozedur ging früher ohne Probleme. Hab auch seid Wochen nichts mehr dran geändert. Der war auf einmal von heute auf morgen da. Den Code der später ins Programm dazu kam, hat damit nichts zu tun. Also kanns daran nicht liegen. Hat jemand ne Ahnung?
Keine Ahnung ob es wichtig ist aber das ist ne untypisierte Datei.

[fkerber]

Hi!

Wie öffnest du die Datei denn?


Ciao Frederic

[nailor]

hast du schreib/lese-rechte für die datei geändert bzw sie verschoben/gelöscht?

[TheReaper]

Ich öffne die Datei ganz normal mit

Delphi-Quellcode:

AssignFile(f1, 'bla.bla');
{$I-}
reset(f1);
if IOResult<>0 then Rewrite(f1);
{$I+}

Schreib- , Leserechte hab ich nicht geändert. Daten aus der Datei lesen geht ohne Probs. Nur mit dem Schreiben gehts nich.

[fkerber]

Hi!

Hast du mal das IOResult nach dem Rewrite geprüft?


Ciao Frederic

[TheReaper]

Wie gesagt, Ich kann Datensätze lesen. Also wird das File auch Fehlerfrei geöffnet.
Ich hab nochmal versucht ein Datensatz zu ändern/anzulegen, und es hat funktioniert, obwohl ich nicht ein Bit an dem ganzen Code verändert habe. Keine Ahnung warum es aufeinmal geht. (Bug im Delphi???)

[TheReaper]

Funktioniert schon wieder nicht. Hab an dem Code nichts geändert. Er meckert immer rum das keine zugriffsrechte vorhanden sind. Kann mir jemand helfen?

[fkerber]

Hi!

Greift vielleicht ein anderes Programm auf die Datei zu?


Ciao Frederic

[TheReaper]

nee, nur andere Prozeduren. Ich versuch das mal mit FileMode:=2; zu machen. Soweit scheint das jetzt zu funzen.

Delphi-Quellcode:

...

for i:=delete to (filesize(f1)-1) do
begin
   FileMode:=2;
   reset(f1);
   seek(f1,i);
   read(f1,liste);
   seek(f1,i-1);
   Write(f1,liste);
end;
seek(f1,filesize(f1)-1);
truncate(f1);

...

[Luckie]

Bist du sicher, dass du die Datei auch wieder schließt?