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

Рассмотрим пример программы с использованием этих компонент.

Пример4.1. Открыть файл, содержащий данные, считать их и сохранить в файл с другим именем.

Для создания программы нам понадобятся компоненты OpenDialog, SaveDialog, а также три компонента типа Button – Button1, Button2 и Button3.

Последние необходимы для организации действий чтения данных, сохранения данных и завершения работы.

Важным свойством компонент OpenDialog и SaveDialog является свойство Filter. Оно позволяет определить, файлы какого типа (т.е. с каким расширением) можно выбирать для открытия (сохранения). Заполняется оно следующим образом – необходимо подвести курсор к свойству Filter в Object Inspector и щелкнуть левой кнопкой мыши, а затем навести курсор на появившуюся кнопку с многоточием и повторно щелкнуть левой кнопкой мыши. На экране появится следующее окно (см. рис. 4.1):

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

Рис.4.1. Окно заполнения поля Filter

Окно имеет две колонки – Filter Name и Filter. В первой колонке пишется пояснительный текст, во второй – тип файлов, которые можно будет выбирать для открытия/сохранения. Фильтр, изображенный на рис.4.1, будет настроен на открытие/сохранения файлов с расширением «inp».

Кнопки Button1, Button2 и Button3 будем использовать для чтения данных, записи данных и выхода из программы соответственно. Примерное расположение компонент на форме показано на рис. 4.2

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

Рис. 4.2 Пример расположения компонент на форме

При написании процедур обработки данных нами будут использоваться следующие свойства компонентов OpenDialog и SaveDialog – FileName и FilterIndex. Первое содержит в себе имя файла и путь к нему, второе – номер фильтра, который выбран. Ниже приведен текст процедуры TForm1.Button1Click, которая обеспечивает открытие файла, имя которого выбрано с использованием компонента OpenDialog, а также чтение данных из этого файла в массив.

Примеры построения женских фитнес программ на клиентках. Часть 1


Читать еще…

Понравилась статья? Поделиться с друзьями: