CLOSEFILE Stream


Beschreibung
Diese Anweisung schließt den Zugriff auf eine Datei, welche mit OPENFILE, READFILE oder WRITEFILE geöffnet wurde.

Das Schließen einer Datei sollte auf jeden Fall nach dem Schreiben bzw. Lesen erfolgen - sonst können Datenträgerfehler nach einem Absturz entstehen - verlorene Dateifragmente genannt.


Parameter
Stream = mit OPENFILE, READFILE oder WRITEFILE ermittelte Identität


Rückgabewert
-


Beispiel
Dieses Programm speichert den Spielstand, lädt danach sofort wieder und zeigt den auf dem Bildschirm:

TYPE HighScore
   FIELD Name$
   FIELD Score
   FIELD Level
END TYPE
Best.HighScore = NEW HighScore
Best\Name = "Mark"
Best\Score = 11657
Best\Level = 34

fileout = WRITEFILE("mydata.dat")
WRITESTRING(fileout, Best\Name)
WRITEINT(fileout, Best\Score)
WRITEBYTE(fileout, Best\Level)
CLOSEFILE(fileout)

filein = READFILE("mydata.dat")
Greatest.HighScore = NEW HighScore
Greatest\Name$ = READSTRING$(filein)
Greatest\Score = READINT(filein)
Greatest\Level = READBYTE(filein)
CLOSEFILE(fileout)

PRINT "Highscore wird aus mydata.dat ausgelesen"
PRINT
WRITE "Name = "
PRINT Greatest\Name
WRITE "Score = "
PRINT Greatest\Score
WRITE "Level = "
PRINT Greatest\Level
WAITKEY()


Siehe auch
CLOSEDIR, OPENFILE, READFILE, WRITEFILE