Создание типизированного файла – содержащего сведения о телефонах абонентов, страница 2

                                                                    

 

 

                                                   

 

                                    да

procedure TForm1.Button9Click(Sender: TObject)

 

0:                                                                                                                                1:

 

да

 

    да                                                                                                      да

 

                          да                                                                      да

Описание алгоритмов процедур и функций.

procedure TForm1.Button1Click(Sender: TObject);

Это процедура создания файла.

Файловая переменная связывается с именем файла на диске, затем файл открывается для перезаписи.

Данные введённые пользователем в поля ввода edit1, edit2, edit3 записываются сначала в переменную типа запись, а затем эта переменная типа anketa записывается в файл. 

procedure TForm1.Button2Click(Sender: TObject);

Это процедура добавления записей в файл.

Устанавливаем файловый указатель за последним элементом файла.

Затем данные, введённые пользователем записываются в переменную типа запись, после чего эта запись добавляется в файл.

procedure TForm1.Button3Click(Sender: TObject);

Это процедура поиска данных в файле.

Изначально выбирается тип поиска путём нажатия соответствующей кнопки в radiogroup1, после чего оператор case в соответствии с индексом нажатой кнопки в radiogroup1 устанавливает соответствующую модель поиска. В соответствии с которой в строковую переменную frag вводятся данные для поиска либо фамилия, либо телефон, либо адрес абонента. После этого последовательно просматриваются все записи файла и, если переменная frag входит в соответствующее поле записи файла то эта запись выводится в таблицу tab1.

Если же соответствующая запись не найдена или не выбран вариант поиска, то выдаётся необходимое сообщение.

procedure TForm1.Button4Click(Sender: TObject);

Это процедура просмотра данных из файла.

Делаем доступным файл для чтения, после чего в соответствии с размером файла устанавливаем необходимое количество строк в таблице и выводим построчно все записи из файла.

procedure TForm1.FormActivate(Sender: TObject);

Эта процедура активируется при запуске программы.

В ней мы делаем проверку на наличие файла с данными, если результат проверки не равен 0, то выдается соответствующее сообщение и все элементы формы, кроме полей ввода и кнопки создать, делаются невидимыми. Если же результат равен 0, то работу с программой можно продолжать дальнейшей работы.

Так же в этой процедуре автоматически  заполняются три поля первой строки таблицы.

procedure TForm1.Button5Click(Sender: TObject);

Это процедура для очистки полей ввода и таблицы вывода.

Очищаются поля ввода. И, в соответствии с размером файла, удаляется нужное количество строк из таблицы.

procedure TForm1.Button6Click(Sender: TObject);

Это процедура для редактирования записей в файле.

Она переписывает данные из таблицы, в которой пользователь отредактировал нужные ему записи, в файл.

procedure TForm1.Button7Click(Sender: TObject);

Эта процедура закрывает программу.