| указатель_на_файл = переменная, определенная командой 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 " Write "Name = " Print GreatestName Write "Score = " Print GreatestScore Write "Level = " Print GreatestLevel WaitKey() |