Lettura di un file di testo con Delphi

Nel precedente capitolo, abbiamo visto come accedere alle informazioni presenti su tabelle di database. Spesso però le informazioni sono presenti su file di testo, ad accesso sequenziale.

In questo capitolo vedremo come, in Delphi, sia possibile aprire un file di testo ed accedere alle informazioni in esso contenute.

Partite con un progetto nuovo ed incollate sul Form un Label. Inoltre, copiate un file di testo (.txt), in un nuovo file, che chiamerete provaf e salvatelo sotto la directory principale del vostro disco.

Delphi prevede un tipo di dati apposito per i file di testo, TextFile. Quindi, occorre dichiarare prima di tutto, una variabile di questo tipo, che crei un collegamento al file fisico presente sul disco. Avremo quindi:

var testoFile : TextFile;

Il prossimo passo sarà quello di dichiarare una variabile stringa in grado di memorizzare una singola riga di testo letta dal file.

var buffer : string;

Passiamo ora alla parte elaborativa, inserite il codice seguente nella procedura TFormCreate.

AssignFile(testoFile, 'c:\provaf.txt');
Reset(testoFile);
label1.Caption := '';
while not EOF(testoFile) do begin
    ReadLn(testoFile, buffer);
    label1.Caption := label1.caption + buffer + #13;
end;
CloseFile(testoFile);

con la funzione AssignFile, si esegue l’associazione del file fisico alla variabile di tipo TextFile. Poi il file viene inizializzato con la funzione Reset.

Per leggere tutte le righe del file, si usa l’istruzione ReadLn, che ha come argomenti la variabile che punta al file e la variabile di testo nella quale memorizzare una singola riga.

il testo completo, viene visualizzato nel Label. Il tutto viene effettuato in un ciclo necessario per leggere tutte le righe del file ed utilizzando la funzione EOF che testa la fine del file.

Al termine della lettura, il file viene chiuso con l’istruzione CloseFile.