A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 80
Aus einer typisierten Datei lesen:
Es werden die Daten aus der vorher mit Hilfe des Programms "schreiben"
erzeugten Datei "namen.dat" ausgelesen.
program lesen;
uses wincrt;
const name = 'namen.dat';
n =3;
type daten = string[20];
var element :array[1..n] of daten; {Dateivariable}
f :file of daten; {Zwischenspeicher}
i :byte; {Laufvariable}
begin
clrscr;
{---Namen aus Datei auslesen-------------------------------------}
assign(f,name); {Dateivariable mit "Datei" verbinden}
{$I-} {Fehlererkennung ausschalten}
reset(f); {Vorhandene Datei öffnen}
{$I+} {Fehlererkennung einschalten}
if ioresult = 0
then
begin {Wenn kein Fehler beim öffnen ..}
writeln(filesize(f),' Elemente wurden gelesen.');
writeln;
i:=0;
while not eof(f) do
begin
inc(i);
read(f,element[i]);
writeln(i:3,'. Element: ',element[i]);
end; {--while--}
close(f); {Datei schließen}
end {--then--}
else
begin {Wenn Fehler beim öffnen ..}
writeln('Fehler beim Öffnen der Datei.');
writeln('Das Programm wird beendet.');
end; {--else--}
end.
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik