{ File: text1.pas } { Scopo: primo esempio di uso file di testo } program LeggiFile; { Legge un file di testo e conta di quanti caratteri e' composto. } var fileinput : text; { file di testo } ch : char; { carattere letto } quanti : integer; { numero di caratteri nel file } begin assign(fileinput, 'INPUT.TXT'); { apertura del file in lettura } reset(fileinput); { se il file non esiste si ha un ERRORE a RUN TIME } quanti := 0; while not eof(fileinput) do begin read(fileinput, ch); write(ch); quanti := quanti + 1 end; writeln ('Il file INPUT.TXT e'' composto di ', quanti, ' caratteri'); close(fileinput) { chiusura del file } end. { LeggiFile }