Файлове в Делфи четат данни от файл, Delphi, Delphi компонент, източник на Делфи
Да предположим, например, един текст freinds.txt файл съдържа ред:
Край на файла
Функцията стойност EOF може да се провери веднага след отваряне на файла. Ако това е, за да бъде равна на True, което означава, че файлът не съдържа никакъв елемент от данни, т.е.. Д. Той е празен (размерът на файла е нула).
Обявата 7.5 показва процедурата, която изпълнява задачата. Той гласи линии от файл, чието име е потребителят е въвел по време на програмата и показва тези редове в областта на Memo. Прозорецът на програмата е показана на фиг. 7.6.
Обявата 7.5. Четене от файл
01. единица rd_;02. интерфейс
03. употреби
04. Windows, Съобщения, SysUtils, варианти, Уроци, графика, контроли,
05. Форми, диалози, StdCtrls, бутони;
06. вид
07. TForm1 = клас (TForm)
08. BUTTON2: TButton;
09. Edit1: TEdit;
10. Memo1: TMemo;
11. Button1: TButton;
12. процедура Button2clicX (Sender: TObject);
13. процедура ButtonlClicMSender: TObject);
14. частен
15.
16. публично
17.
18. край;
19. Var
20. Form1: TForm1;
21. implemenatation
22. <$S. *.dfm>
23. // кликване върху бутона Open
24. Процедура за TForml. ButtonlClick (Sender: TObject);
25. Var
26. е: текстов файл; // файл
27. fName: String [SO]; // име
28. Buf: String [80]; // буфер, за да се чете от файла
29. започне
30. fName: = Editl. Текст;
31. AssigtiFile (е, fName);
32. <$i ->
33. Reset (е); // Отваряне на за четене
34. ако IOResult = 0, тогава
35. започне
36. съобщение ( "0shibka достъп файл" + fName, mtError [mbOk] 0.);
37. изход; приключи;
38. // чете от файл
39. докато не EOF (е) да започне
40. readlnlf, Buf); // чете ред от файл
41. Memol. Линии .Add (Buf>; // Добавяне на ред в полето за бележка!
42. край;
43. CloseFile (е); // затворете файла
44. край;
45. // кликнете върху бутона Save - пише във файл
46. Процедура за TForml. Button2ClickSender (TObject);
47. Var
48. е: текстов файл; // файл
49. fName: String [80]; // име
50. I: цяло число;
51. започне
52. fName: = Edit1. Текст;
53. AssignFils (F, fName);
54. Rewrite (е); // отворите за дублиране
55. // пиша във файла
56. защото: = 0 до Memol. Зума. Пребройте се // струни са номерирани от нула
57. writeln (е, Memo1 линии.);
58. CloseFile (е); // затворете файла
59. MessageDlg ( "данни са записани във файл", mtlnformation, [tobOk], 0);
60. край; край.
За организацията се използва за обработка на файлове инструкция цикъл известно време. която осигурява функцията по стойност EOF преди всяко четене, включително и преди първата.