– 35 –

If FileExists(F,FileName) then begin AssignFile(F,FileName);

Reset(F); {чтение файла} CloseFile(F)

End;

• Чтение файла до его конца.

While Not Eof(F) do begin {чтение данных}

End;

Стандартные диалоги открытия и сохранения файла

Стандартные диалоги открытия (OpenDialog) и закрытия (SaveDialog) файла находятся на странице Dialogs палитры компонентов. Их использование заключается в размещении компонентадиалога на форме и вызове его в нужный момент методом Execute :

ИмяДиалога.Execute.

Метод возвращает True, если произошел выбор и нажата кнопка Ok, и False – в противном случае.

Наборы свойств диалогов совпадают.

•FileName : String. Полное имя выбранного файла. Это свойство является результатом работы диалога.

•Filter : String. Задает фильтр или набор фильтров, используемых для фильтрации файлов при работе диалога.

•InitialDir : String. Задает начальный каталог, открываемый при запуске диалога.

Типичная последовательность операторов при использовании диалога OpenDialog заключается в проверке не только факта выбора файла, но и его существования.

If ИмяДиалога.Execute and FileExists( ИмяДиалога.FileName ) then begin {Обработка выбранного файла}

end;

При использовании диалога сохранения файла проверка существования файла не требуется.

If ИмяДиалога.Execute then begin {Обработка выбранного файла}

end;

Пример выполнения работы

Рассмотрим задачу разработки информационной системы о магазинах (номер, адрес, ФИО владельца, количество сотрудников, телефон). Система должна обеспечивать поиск всех магазинов с указанной фамилией владельца.

Главная форма проекта изображена на рис. 11.

Список ListBox отображает названия магазинов, а поля Edit – данные о сфокусированном в списке магазине.

Кнопка Новый реализует ввод данных о новом магазине. Поля очищаются и становятся доступными. Кнопка Изменить реализует изменение данных о сфокусированном в списке магазине. Кнопка Удалить удаляет селектированный (выбранный) в списке магазин.

Калачев Д.П., Лутай В,Н,. Скороход С.В. Delphi. Лабораторные работы.