|
Registriert seit: 6. Mär 2007
Ort: Osnabrück
599 Beiträge
Delphi XE6 Enterprise
|
Re: Datei Frei geben
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.
|