Reset Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

Öffnet eine zuvor mit assign definierte Datei für Lesezugriffe.

Deklaration

procedure reset(dateiname):text;

Beispiel

uses crt;
var dateiname: text;
    inhalt: string;
    

begin
writeln('Was wollen Sie in der Datei,');  
writeln('die unter - C:\paswiki.txt - gespeichert wird, schreiben ?');
writeln;
writeln('Bitte Text eingeben :');writeln;readln(inhalt);

assign(dateiname,'C:\paswiki.txt');
rewrite(dateiname);
writeln(dateiname,inhalt);
close(dateiname);
writeln;
writeln('Wollen Sie die Datei nun zum Lesen öffnen ? <j> oder <n>');
if ReadKey='n' then halt
else
ClrScr;
reset(dateiname);
repeat
readln(dateiname,inhalt);
writeln(inhalt);
until eof(dateiname)=true;
readln;
end.