Перейдём к описанию основных подпрограмм.
Начнём с описания процедуры, реализующей действия, возникающие при запуске программы. Она имеет стандартный заголовок:
«procedure TForm1. FormCreate (Sender: TObject)».
Данная подпрограмма реализует следующие действия: устанавливает текущую дату, день недели, формирует начальные значения основных компонентов: положение ползунка устанавливается в середине таблицы; строится видимая часть ленты (таблица); задаётся начальная длина ленты и другие начальные установки. В качестве параметра передана переменная объектового типа, позволяющая использование в данной процедуре объектов (компонентов).
Блоксхема данной подпрограммы:
Рис. 1. Блоксхема процедуры TForm1. FormCreate
Следующая подпрограмма имеет следующий заголовок:
«procedure TForm1. btn2Click (Sender: TObject)».
В данной процедуре реализуется самая главная часть всей программы. Она обрабатывает строку команды и реализует действие, предписанное данной команде. Вызывается данная процедура при нажатии на кнопку btn2 («Пуск»).
Блоксхема данной подпрограммы:
Рис. 2. Блоксхема процедуры TForm1. btn2Click
Рассмотрим следующие две процедуры:
«procedure TForm1. btn1Click (Sender: TObject)» и.
«procedure TForm1. btn3Click (Sender: TObject)».
Они предназначены для пролистывания (просмотра) ленты. Одна — вправо, другая — влево. Принцип действия таков: при нажатии на одну из них происходит перезапись видимой части ленты следующей частью, данные которой хранятся в массиве.
Блоксхема:
Рис. 3. Блоксхема процедуры TForm1. btn1Click
Аналогичную структуру имеет и вторая процедура, за исключением некоторых отличий.
Следующая подпрограмма имеет заголовок:
«procedure TForm1. lv3SetEditText (Sender: TObject; ACol, ARow: Integer; const Value: String)».
Она предназначена для предоставления возможности изменения данных на ленте непосредственно с клавиатуры.
Блоксхема:
Рис 4. Блоксхема процедуры TForm1. lv3SetEditText
Теперь разберём процедуру, предназначенную для ввода, удаления данных, и используемую в такой важной части программы, как «Настройки». В качестве первого параметра ей передаётся строка, представляющая собой набор номеров ячеек (возможно диапазонов), в которые необходимо занести данные, хранящиеся во втором параметре типа char. Она имеет следующий заголовок:
«procedure TForm2. zapoln (st: string; o_i: char)».
Блоксхема данной подпрограммы:
Рис. 5. Блоксхема процедуры TForm2. zapoln