Thema: Delphi Datei Frei geben

Einzelnen Beitrag anzeigen

Frickler

Registriert seit: 6. Mär 2007
Ort: Osnabrück
599 Beiträge
 
Delphi XE6 Enterprise
 
#3

Re: Datei Frei geben

  Alt 2. Jun 2010, 09:04
"Auswertung" ist nicht einfach ein Flag, ob die Datei richtig erzeugt wurde, sondern auch - im Erfolgsfall - das Dateihandle. d.h. wenn Auswertung nicht -1 ist, musst Du die Datei mit "FileClose(Auswertung)" wieder schließen, sonst kann niemand anderes drauf zugreifen.

Nochwas: Wenn Du "Zeilen" als TStringList deklarierst, kannst Du den Teil von "AssignFile" bis "CloseFile" durch "Zeilen.LoadFromFile(Path)" ersetzen.
  Mit Zitat antworten Zitat