Курсовая работа: Программирование на языке высокого уровня 3

procedure TForm1.N18Click(Sender: TObject);

Процедурыприведённыевышеотвечаютзазапускпроцедурсортировкиsort_1(derect+'db_disk.db'),sort_2(derect+'db_disk.db'), sort_3(derect+'db_disk.db')sort_4(derect+'db_disk.db'), sort_5(derect+'db_disk.db') , изменю, соответственно. Процедуры содержат входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N5Click(Sender: TObject) ;

Данная процедура отвечает за запуск процедуры удаления deletef и вывод обновлённой информации с помощью процедуры vivod из меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N4Click(Sender: TObject) ;

Данная процедура отвечает за добавление информации в файл с помощью процедуры input из меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N2Click(Sender: TObject) ;

Данная процедура запускает процедуру вывода vivod , путём нажатия на необходимый пункт во всплывающем меню над областью таблицы. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N10Click(Sender: TObject);

procedure TForm1.N11Click(Sender: TObject);

procedure TForm1.N12Click(Sender: TObject);

procedure TForm1.freg1Click(Sender: TObject);

procedure TForm1.fcincom1Click(Sender: TObject);

Процедуры, приведенные выше, сходны по своему принципу. Каждая из них вызывает конкретную процедуру сортировки (sort_1, sort_2, sort_3, sort_4, sort_5 ), путём нажатия на пункт, всплывающего меню над областью таблицы. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N9Click(Sender: TObject);

Данная процедура запускает процедуру очистки списка clearlist , путём нажатия на необходимый пункт во всплывающем меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N23Click(Sender: TObject) ;

Данная процедура запускает процедуру очистки списка clearlist , путём нажатия на необходимый пункт в меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N6Click(Sender: TObject);

Данная процедура запускает процедуру редактирования redactor из меню. Процедура содержит входную переменную Sender - тип tobject , этот параметр определяет, какой объект программы вызывает данную процедуру.

procedure TForm1.N21Click(Sender: TObject);

Данная процедура отображает окно с информацией о программе.

procedure tform3.input(var f:recordfile; var dvdfile:string) ;

Данная процедура осуществляет запись данных в файл.

Параметр “ f ” – типизированный файл типа recordfile . Dvdfile – деректория файла.

Алгоритм:

Привязываем к файловой переменной “ g ” временный файл derect +' buffer . db ' и перезаписываем его. Привязываем к файловой переменной “ f ” переменную dvdfile и открываем на чтение.

Если в файле находится что-либо, копируем содержимое “ f ” в “ g ” и закрываем “ f ” , если нет, перезаписываем и закрываем “ f ” .

Присваиваем переменным записей введенные поля.