Kryptologie - Informatik
Kryptologie - Informatik
Kryptologie - Informatik
Sie wollen auch ein ePaper? Erhöhen Sie die Reichweite Ihrer Titel.
YUMPU macht aus Druck-PDFs automatisch weboptimierte ePaper, die Google liebt.
Anlage 2: Das File-Konzept in THINK-Pascal<br />
dateiName:= erfragt „dateiName“<br />
oldFileName ( ‘leer‘ ); zum Lesen<br />
dateiName:= erfragt „dateiName“<br />
newFileName ( ‘Kommentar‘, ‘Vorschlag‘ ); zum Schreiben<br />
AnfangsDatenSatz<br />
0 1 2 3 … … … i … … … n EOF<br />
5<br />
EndDatenSatz<br />
Zeiger ↑ auf dem i - ten Datensatz<br />
rewrite ( datei, dateiName); setzt den Zeiger auf den Dateianfang,<br />
löscht alle Datensätze und<br />
öffnet zum Schreiben<br />
reset ( datei, dateiName); setzt den Zeiger auf den Dateianfang und<br />
öffnet zum Lesen<br />
open ( datei, dateiName); setzt den Zeiger auf den Dateianfang und<br />
öffnet zum Lesen und zum Schreiben<br />
0 1 2 3 … … … i … … … n EOF<br />
Zeiger ↑ auf den ersten Datensatz<br />
close( datei); schließt die Datei<br />
Eintrag ins Platteninhaltsverzeichnis<br />
read ( datei , datenSatz); liest „datenSatz“ und<br />
rückt Zeiger eins nach rechts<br />
write ( datei, datenSatz ); schreibt „datenSatz“ und<br />
rückt Zeiger eins nach rechts<br />
0 1 2 3 … … … i … … … n EOF<br />
Zeiger ↑⇒↑ rückt um eins weiter<br />
eof ( datei ); ist „True“, wenn das Dateiende erreicht ist<br />
seek ( datei , i ); setzt Zeiger auf den „i“-ten Datensatz<br />
position:=<br />
filepos ( datei ); bestimmt die „position“ des aktuellen Zeigers