Край fayla, глава 7

Функцията стойност EOF може да се провери веднага след отваряне на файла. Ако това е, за да бъде равна на True, което означава, че файлът не съдържа никакъв елемент от данни, т.е.. Д. Той е празен (размерът на файла е нула).

Обявата 7.5 показва процедурата, която изпълнява задачата. Той гласи линии от файл, чието име е потребителят е въвел по време на програмата и показва тези редове в областта на Memo. Прозорецът на програмата е показана на фиг. 7.6.

Фиг. 7.6. Прозорецът на програма за четене от файл

Обявата 7.5. Четене от файл

Windows, Съобщения, SysUtils, варианти, уроци,

Graphics, контроли, форми, диалогови прозорци, StdCtrls, бутони;

процедура Button2Click (Sender: TObject);

процедура ButtonlClick (Sender: TObject); частен

// кликнете върху бутона Open

процедура TForm1.Button1Click (Sender: TObject);

F: текстов файл; // файл fName: String [80]; // име

Buf: String [80]; // буфер, за да се чете от файла

fName: = Edit1.Text; AssignFile (е, fName);

Reset (е); // Отваряне на за четене

ако IOResult <> 0 след това да започне

MessageDlgt'Oshibka достъп до файла '+ fName,

mtError [mbOk], 0); изход; приключи;

// четене на файл

readln (е, Buf); // чете ред от файл

Memo1.Lines.Add (Buf); // добавете този ред към поле Memo1

CloseFile (е); // затворете файла

// кликнете върху бутона Save - пише във файл

процедура TForml.Button2Click (Sender: TObject);

F: текстов файл; // файл

fName: String [80]; // име

fName: = Edit1.Text; AssignFile (е, fName);

Препишете (е); // отворите за дублиране

защото: = 0 до Memo1.Lines.Count направи // струни са номерирани от нула

CloseFile (е); // затворете файла

MessageDlg ( "данни се записват във файл", mtlnformation, [mbOk], 0);

За организацията използва файл инструкция за обработка цикъл време, което осигурява функция за проверка EOF стойност преди всяко четене, включително и преди първата.