Datei nach Closefile immer noch blockiert

[kalmi01]

Hallo,

mir ist aufgefallen, das Delphi Dateien ungern wieder freigibt, z.B.:

Delphi-Quellcode:

AssignFile(F, Datei1);
Reset(F);
ReadLn(F, Datum_Loc);
CloseFile(F);              // Datei1 ist immer noch blockiert !

AssignFile(F, Datei2);     // jetzt ist Datei1 frei
Reset(F);
ReadLn(F, Datum_Srv);
CloseFile(F);
                           // Datei2 ist und bleibt blockiert, bis Prg.-Ende

Kann man Delphi dieses Verhalten abgewöhnen ?

{$I-} ist keine Lösung.

Gruß
Michael

[Bernhard Geyer]

Virenscanner am laufen? Evtl. mal Testhalber abschalten.