Fișierele din Delfi citește datele dintr-un fișier, delphi, componenta Delfi, sursa delphi
Să presupunem, de exemplu, un text freinds.txt fișier conține linia:
Sfârșitul de fișier
Funcția Valoarea EOF 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.
Listarea 7.5. Citirea dintr-un fișier
rd_ 01. Unitate;02. interfaţă
03. utilizări
04. Ferestre, Mesaje, SysUtils, variante, Clase, Grafică, Controale,
05. Formulare, Dialoguri, StdCtrls, nasture;
06. tip
07. TForm1 = class (TForm)
08. Button2: TButton;
09. edit1: tEditează;
10. Memo1: TMemo;
11. Button1: TButton;
12. Procedura Button2clicX (Expeditor: TObject);
13. Procedura de ButtonlClicMSender: TObject);
14. privat
15.
16. publică
17.
18. final;
19. var
20. Form1: TForm1;
21. implemenatation
22. <$S. *.dfm>
23. // click pe butonul Open
24. Procedura TForml. ButtonlClick (Expeditor: TObject);
25. var
26. f: Textfile; // fișier
27. fname: String [SO]; // numele fișierului
28. buf: String [80]; // tampon pentru a citi din fișierul
29. începe
30. fname: = Editl. Text;
31. AssigtiFile (f, fname);
32. <$i ->
33. Reset (f); // deschide pentru citire
34. dacă IOResult = 0 atunci
35. începe
36. Mesaj ( 'acces fișier 0shibka' + fname, mtError, [MBOK] 0.);
37. ieșire; se încheie;
38. // citit din fișier
39. în timp ce nu EOF (f) nu începe
40. readlnlf, buf); // citit o linie dintr-un fișier
41. Memol. Linii .Add (buf>; // adăugați un rând în câmpul memo!
42. final;
43. CloseFile (f); // închide fișierul
44. final;
45. // click pe butonul Save - scrie într-un fișier
46. Procedura TForml. Button2ClickSender (TObject);
47. var
48. f: Textfile; // fișier
49. fname: String [80]; // numele fișierului
50. i: integer;
51. începe
52. fname: = edit1. Text;
53. AssignFils (f, fname);
54. rescriere (f); // deschide pentru dublaj
55. // scrie în fișier
56. pentru i: = 0 până la Memol. Linii. Count // nu siruri de caractere sunt numerotate de la zero
57. writeln (f, Memo1 Lines.);
58. CloseFile (f); // închide fișierul
59. MessageDlg ( 'datele sunt scrise într-un fișier', mtlnformation, [tobOk], 0);
60. final; end.
Pentru organizarea utilizat ciclul de instrucțiuni de procesare a fișierelor un timp. care asigură funcția de EOF valoare înainte de fiecare citire, inclusiv înainte de prima.