CloseFile указатель_на_файл
Параметры
указатель_на_файл = переменная, определенная командой
ReadFile,
WriteFile или
OpenFile
Описание
Используйте эту команду для закрытия ранее открытого файла. Вам следует всегда закрывать файл, как только вы закончили работать с ним.
Пример
; Считывание и запись пользовательских типов в файлы, используя ReadFile, WriteFile и CloseFile
; Инициализация некоторых переменных для примера
Type HighScore
Field Name$
Field Score%
Field Level%
End Type
Best.HighScore = New HighScore
BestName = "Марк"
BestScore = 11657
BestLevel = 34
; Открыть файл для записи
fileout = WriteFile("mydata.dat")
; Записать информацию в файл
WriteString( fileout, BestName )
WriteInt( fileout, BestScore )
WriteByte( fileout, BestLevel )
; Закрыть файл
CloseFile( fileout )
; Открыть файл для считывания
filein = ReadFile("mydata.dat")
; Считать наилучший результат (score) из файла
Greatest.HighScore = New HighScore
GreatestName$ = ReadString$( filein )
GreatestScore = ReadInt( filein )
GreatestLevel = ReadByte( filein )
; Закрыть файл, как только считывание закончилось
CloseFile( filein )
Print "Рекорд (HighScore), считанный из файла mydata.dat "
Print
Write "Name = "
Print GreatestName
Write "Score = "
Print GreatestScore
Write "Level = "
Print GreatestLevel
WaitKey()