filecreate produziert e/a-32

[Nikolas]

Ich habe ein recht simples Problem bei dem einfach nicht weiterkomme:

Ich will einfach nur an eine Datei (die es vielleicht nicht gibt) eine Zeile anhängen.

Wenn ich mit

Delphi-Quellcode:

if fileexists('Termine.txt')= false then
filecreate('Termine.txt');

sicher gehen will, dass die Datei existiert und dann mit

Delphi-Quellcode:

assignfile(Datei, 'Termine.txt');
append(Datei); 
writeln(datei,'Uhrzeit:  '+datetimetostr(now));
closefile(Datei);

versuche, was uz schreiben bekomme ich E/A 32.

Ich seh einfach nicht den Fehler

Kann mir da vielleicht jemand einen Tipp geben??

[Chewie]

Es ist auch nicht dein Fehler:

Zitat:

Error 32:
The process cannot access the file because it is being used by another process.

[Nikolas]

Dieser andere Prozess kann ja nur das filecreate sein, oder? Aber wie soll ich das denn sonst machen?

Tox

[Stanlay Hanks]

Ich glaube, was Chewie meint, ist, dass das File von einem anderen Prozess (Programm) verwendet wird

[MikeS]

probiere es doch mal so!

Delphi-Quellcode:

assignfile(Datei, 'Termine.txt');  //assignfile geht auch wenn die datei nicht existiert!
if fileexists('Termine.txt') then
  append(Datei)
else  
  reset(Datei);

  

writeln(datei,'Uhrzeit:  '+datetimetostr(now));
closefile(Datei);

[Nikolas]

Wenn ich aber das ganze ein zweites mal mache, und somit nicht das filecreate aufrufe, habe ich keine Probleme;
Die Termine.txt, kann ja beim ersten mal nicht von einem anderen Programm bearbeitet werden, einfach weil es sie dann noch nicht gibt. Denn wenn ein anderes Programm sie bearbeiten würde, hätte ich ja ein positives Fileexists;

Danke
Toxman

[MikeS]

hast du meinen Beitrag gesehen?

[Nikolas]

Den hab ich grad ausprobiert:

Fehlermeldung, dass die Datei nicht gefunden wurde.

Hast du ihn mal ausprobiert? Ich weiss langsam nicht mehr wo ich suchen soll
Danke

[MikeS]

probiere mal statt reset -> rewrite

näheres kannst du in der OH nachlesen!

mit rewrite funktionierts!

[Nikolas]

Danke, so funzts. Ich weiss aber immer noch nicht genau, warum meine erste Idee nicht funktioniert. Bei append finde ich keinen HInweis darauf, dass schon was in der Datei stehen muss, o.Ä.
Hast du da eine Idee?

Toxman