A Der PASCAL – Teil

Skript zur Vorlesung Allgemeine Datenverarbeitung 83
Element aus einer typisierten Datei löschen:
Das Löschen eines Elementes erfolgt dadurch, daß das zu löschende Element
mit dem Inhalt des letzten Elementes der Datei überschrieben und anschließend
die Datei vor dem letzten Element abgeschnitten wird.
program loeschen;
uses wincrt;
const name = 'namen.dat';
type daten = string[20];
var element :daten; {Zwischenspeicher}
f :file of daten; {Dateivariable}
{--Daten aus Datei auslesen----------------------------------------}
procedure lesen;
var i:byte; {Zählvariable}
begin
clrscr;
writeln('Datei enthält ',filesize(f),' Datensätze');
seek(f,0); {Dateizeiger auf erstes Element setzen}
i:=0;
while not eof(f) do
begin
inc(i); {Zählvar. um eins erhöhen}
read(f,element); {Datensatz aus Datei auslesen}
writeln(i:3,'. Datensatz: ',element);
end; {--while--}
readln;
end; {--lesen--}
{--Datensatz loeschen----------------------------------------------}
procedure loesch;
var bereich:set of byte;
num,pos,anz:byte;
begin
repeat
anz:=filesize(f); {Anzahl Datensätze}
if anz > 0
then
begin
bereich:=[0..filesize(f)-1]; {Gültiger Bereich für "pos"}
writeln;writeln;
writeln('Datensatz löschen');writeln;
repeat
write('Nummer des Datensatzes (1..',anz,') ?: ');
readln(num);
pos:=num-1;
until pos in bereich;
if pos anz-1 {Wenn nicht letztes Element dann..}
then
begin
seek(f,anz-1); {Dateizeiger auf letztes Element setzen}
read(f,element); {und Element lesen}
seek(f,pos); {Dateizeiger auf "Löschposition" setzen}
write(f,element); {und mit letztem Element überschreiben}
end; {--then 2--}
Fachhochschule Gelsenkirchen Prof. Dr.-Ing. A. Rinschede
Fachbereich Versorgungs- und Entsorgungstechnik