Delphi-Quellcode:
if not FExist(FileName) then Exit;
nErrCode := FOpen(FileName, 0, 2, myFile);
Hallo Emil,
Du öffnest die Datei immer mit FOpen
schliesst sie aber nie mit z.B. mit FClose.
Reset öffnet die (Text)Datei zum Lesen - das scheint ja noch in Ordnung zu sein.
Da die Datei mit
0= AccessIs := GENERIC_READ;
Schreibzugriff verweigern.
2= ShareIs := FILE_SHARE_READ
geöffnet wurde.
Rewrite öffnet die Datei zum Schreiben - da kracht es weil die Datei nur zum Lesen geöffnet wurde.
Grüße
Klaus