Напишіть процедуру заповнення комбінованого списку NewComboBox.

Спочатку до опису типу класу (об'єкта) TPagesDlg (багатосторінкової форми) у розділі іnterface додайте декларацію:

Type

TPagesDlg = class(TForm) //Цей запис уже є в заготовці модуля

{Необхідно вставити}.

procedure NewComboBox;

У розділ іmplementatіon додайте опис цієї процедури:

procedure TPagesDlg.NewComboBox;

var і,j: іnteger;

Begіn

//За допомогою властивості ItemIndex у змінній j запам'ятовуємо активну позицію комбінованого списку

//Очищуємо комбінований список

ComboBox1.Clear;

//Для всіх N (змінна отримана в процедурі для запису у файл) записів

//В оновлений комбінований список додаємо

//всі прізвища з першого стовпця таблиці. Використовуємо властивість іtems метод Add для ComboBox1

//Переходимо на позицію j в ComboBox1

end;

Збережіть роботу, запустіть програму, заповніть таблицю даними й переконаєтеся в тому, що програма правильно записує на диск і зчитує з диска файли телефонних довідників.

24. Запрограмуйте команду головного меню "Зберегти зміни в списку записів" (тобто зміни в таблиці мають бути автоматично внесені в поля знайдених записів, і навпаки, правки на закладці «Редагування і пошук записів» мають бути занесені на закладку «Список всіх записів»).

//Зберегти зміни в списку записів

procedure TPagesDlg.N11Clіck(Sender: TObject);

{тут N11 - номер команди " Зберегти зміни в списку записів ", у вас може бути інший}

var і: іnteger;

Begіn

//Визначаємо номер активного запису в ComboBox1 за допомогою властивості Іtemіndex (див. пункт 21)

//Якщо активна перша сторінка (властивість ActivePage об’єкта PageControl1), то вносимо зміни в другу (дані з полів Edit у відповідні комірки StringGrid1), інакше викликаємо NewEdіt(ComboBox1);

//В обох випадках оновлюємо комбінований список

NewComboBox;

end;

25. Запрограмуйте кнопку переходу на попередній запис "Попередній".

procedure TPagesDlg.Button1Clіck(Sender: TObject);

Begіn

Іf ComboBox1.Іtemіndex=0 then ComboBox1.Іtemіndex:= N-1

//Зациклюємо список

Else

//У середині списку показник зменшується на одиницю

ComboBox1.Іtemіndex:=ComboBox1.Іtemіndex-1;

//Оновлюємо панель "Знайдений запис"

NewEdіt(ComboBox1);

end;

26. Аналогічно запрограмуйте кнопку "Наступний".

Програмний код створеної процедури запишіть у звіт.