Rewrite Turbo Pascal

aus Paswiki Turbo Pascal, der freien Wissensdatenbank

Beschreibung

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

Deklaration

procedure Rewrite(var F: File [; Recsize: Word ] );

Beispiel

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

begin
writeln('Was soll in der Datei test.txt stehen ?');
readln(inhalt);
assign(dateiname, 'test.txt');
rewrite(dateiname);
writeln(dateiname, inahlt);
close(dateiname);
write('Ihr text wurde in die Datei test.txt geschrieben !');
end.