Determinarea sfârșitul fișierului

EOF valoare funcție poate fi verificată imediat după deschiderea fișierului. În cazul în care acest lucru este să fie egală cu adevărat, ceea ce înseamnă că fișierul nu conține nici un element de date, de ex., E. este gol (dimensiunea fișierului este zero).

Listarea 7.5 arată procedura care îndeplinește sarcina. Se citește linii dintr-un fișier al cărui nume este utilizatorul a intrat în timpul programului și afișează aceste linii în câmpul memo. Fereastra programului este prezentată în Fig. 7.6.

Fig. 7.6. Fereastra programului Citirea dintr-un fișier

i Listarea 7.5. Citirea dintr-un fișier

Procedura Button2Click (Expeditor: TObject); Procedura ButtonlClick (Expeditor: TObject); privat public

var Forml: TForml; punerea în aplicare

Procedura TForml.ButtonlClick (Expeditor: TObject); var f: Textfile; // fișier

fname: String [80]; // numele fișierului

buf: String [80]; // tampon pentru a citi din fișierul

// citește din fișierul în timp ce nu EOF (f) nu începe readln (f, buf); // citit o linie dintr-un fișier

f: Textfile; // fișier

Rescriem (f); // deschis pentru a suprascrie // scrie în fișier

CloseFile (f); // închide fișierul

Pentru organizarea utilizat ciclul de fișier de instrucțiuni de procesare în timp, care furnizează funcție de valorile de testare EOF înainte de fiecare citire, inclusiv înainte de prima.

Tipuri de date, definite de programator

Până la acest punct în programele care utilizează tipuri de date standard: număr întreg, Real, Char, șir, și boolean. Cu toate acestea, limbajul Pascal permite programator pentru a defini propriul tip de date, iar apoi datele de tipul celor utilizate în program.

Programator declară un nou tip de date se bazează pe tipuri sau tipuri standard, create anterior de către programator. Tip definit de programator, acesta poate fi atribuit:

un tip de date compozit (scriere).