Deschiderea pentru fișierul de ieșire
Înainte de retragerea nevoia sa de a deschide fișierul. În cazul în care programul generează un fișier de ieșire, care a fost deja utilizat, este posibil ca un fișier cu rezultatele programului sunt deja pe disc. Prin urmare, programatorul trebuie să decidă ce să facă cu fișierul vechi: înlocuiți datele vechi cu date noi sau noi adăugate la cele vechi. Metoda de utilizare a versiunii vechi este determinată în momentul deschiderii dosarului.
moduri posibile de deschidere a unui fișier pentru scrierea de date în ea:
- Dubbing (înregistrarea unui nou fișier folosind existent sau pentru a crea un fișier nou);
- adaugă la un fișier existent.
Pentru a deschide un fișier în modul de a crea un nou fișier sau înlocuiți unul existent, trebuie să apelați procedura de rescriere (f), unde f - tipul de fișier Textfile variabilă.
Pentru a deschide fișierul în modul anexați la datele existente care sunt stocate în acest fișier, aveți nevoie pentru a apela procedura Append (f), unde f - tipul de fișier Textfile variabilă.
Fig. 7.1 prezinta caseta de dialog program, care înregistrează sau adăugarea unui fișier text.
Fig. 7.1. caseta de dialog, adăugați o înregistrare la un fișier
Listarea 7.1 arată procedura care este pornit prin apăsarea unui buton de comandă înregistrare. Se deschide fișierul în modul de a crea un nou sau înlocuiți un fișier existent, și scrie textul, care este în componenta de câmp Memo1.
Numele fișierului trebuie să fie introduse în timp ce lucrează în domeniul Editl. Puteți seta numele fișierului implicit în timpul dezvoltării formularului de aplicare. În acest scop, este necesar să se atribuie o valoare, de exemplu, test.txt, Edit1.Text proprietate.
Listarea 7.1. Crearea unui nou sau înlocuirea unui fișier existent
Procedura TForm1.Button1Click (Expeditor: TObject);
f: Textfile; // fișier
fname: String [80]; // numele fișierului
Rescriem (f); // deschide pentru dublaj
pentru i: = 0 până la Memol.Lines.Count face // siruri de caractere sunt numerotate de la zero
CloseFile (f); // închide fișierul
MessageDlg ( 'date este scris într-un fișier', mtlnformation, [MBOK], 0);
Listarea 7.2 arată procedura care este pornit prin apăsarea unui buton de comandă Add. Se deschide fișierul al cărui nume este specificat în câmpul edit1 și adaugă conținutul câmpului Memol.
Listarea 7.2. Atașare la fișier existent
Procedura TForm1.Button2Click (Expeditor: TObject);
f: Textfile; // fișier
fname: String [80]; .// filename
i: integer; începe
Append (f); // deschide pentru încărcări
pentru i: = 0 până la Memo1.Lines.Count face // siruri de caractere sunt numerotate de la zero
CloseFile (f); // închide fișierul
MessageDlg ( 'date se adaugă la un fișier', mtInformation, [MBOK], 0);