GESTIONE DI UN FILE SEQUENZIALE IN DELPHI - Linguaggio Delphi-Pascal

informatica

GESTIONE DI UN FILE SEQUENZIALE IN DELPHI

Linguaggio Delphi-Pascal

1) Definizione del percorso per un file

Il NOME INTERNO di un file viene assegnato dal Programmatore.

Il NOME ESTERNO di un file è il suo nome co 959e42j mpleto, così come è conosciuto dal file system.

Si dichiara:

AssignFile(Fpersone, Persone.dat)

dove con "Fpersone" (il nome Interno del file) si intende un nome che è stato precedentemente dichiarato come variabile dichiarata dal programmatore (user defined):

type

Type TrecPersonr = Record

Codice : byte;

Descrizione : string;

var Fpersone: File of TrecPersone;

e per "NomeEsterno" il percorso del file scelto dall'utente:

NomeEsterno:=Fngest2file.DirectoryListBox1.Directory+'\'+Fngest2file.EdFile.text;

Se si gestiscono 2 file bisogna ricordarsi di scrivere due "AssignFile"!!!!

2) Apertura del File

Ci sono due tipi di apertura, che possono essere utilizzati in modo distinto:

Reset (Fpersone); [lettura, scrittura in aggiunta, modifica]

oppure

Rewrite(FPersone);   [creazione di un file, se il file esiste già perde tutto il suo contenuto]

3) Inserimento Record

Write(FPersone,RecPersone)

Bisogna ricordarsi di dichiarare RecPersone all'inizio:

TrecPersone = record

Codice:byte;

Descrizione:string[30];

Prezzo:integer;

Tipo:byte

end;

var

FPersone: File of TRecPersone;

4) Lettura dei Record

Read(FPersone,RecPersone);

Si deve controllare che il file: esiste, è aperto, è vuoto o si è alla fine del file.

Si usa la funzione booleana:  Eof(FPersone) [vero o falso]

Di solito si utilizza un ciclo "while. do" o "if.. then. else"

5) Chiusura del file

L'operazione di lettura si conclude con la chiusura del file:    CloseFile(FPersone);

6) Cancellazione di un record all'interno del file

DeleteFile(NomeEsterno);

Con DeleteFile il file viene completamente rimosso dalla memoria di massa, cancellato, mentre con Rewrite il file esiste ancora, è stato semplicemente svuotato del suo contenuto.

7) Posizionamento sui record

Seek(FPersone.Posizione);  per posizionarsi sul record che viene dopo.

Se si vuole ritornare al primo record si mette:  seek(FPersone, 0);