FileClose()
FileClose() – File Handle freigeben
Mit FileClose kann eine Datei anhand ihres Handles geschlossen werden. Sie erhalten das Handle beim Öffnen der Datei mit FileOpen().
Wurde mit FileOpen() ein gültiges Handle bezogen, dann MUSS die Datei nach der Bearbeitung über FileClose() geschlossen werden! => Deshalb immer StartSeq ... Always ... StopSeq verwenden!
Parameter | Beschreibung |
---|---|
aFileHandle:N | FileHandle |
Rückgabewert
Keiner
Beispiel
CODE
| nHandle, dDatum, nDatum, nError |
nHandle := FileOpen('C:\TEMP\U_Zahlung.Pas', _OR(fo_ReadWrite, fo_Shared)),
if nHandle > -1 then
startseq,
dDatum := FileDateToDateTime(FileGetDate(nHandle)),
WriteLn(dDatum),
nDatum := DateTimeToFileDate(Date() + TimeEx()),
WriteLn(nDatum),
nError := FileSetDate(nHandle, nDatum),
if nError <> 0 then
WriteLn('Fehlercode ' + Str(nError)),
else
WriteLn('Neues Datei-Datum ' + DateTimeToStr(FileDateToDateTime(nDatum))),
endif,
always,
FileClose(nHandle),
stopseq,
endif,