Практическая работа

Создадим записную книжку на каждый день недели от Понедельника до Воскресенья

Опишем процедуру загрузки файла по кнопке «Загрузить»:

procedure TForm1.BitBtn6Click(Sender: TObject);

Begin

if opendialog1.Execute then

case pagecontrol1.ActivePageIndex of

0: listbox1.Items.LoadFromFile(opendialog1.FileName);

1: listbox2.Items.LoadFromFile(opendialog1.FileName);

2: listbox3.Items.LoadFromFile(opendialog1.FileName);

3: listbox4.Items.LoadFromFile(opendialog1.FileName);

4: listbox5.Items.LoadFromFile(opendialog1.FileName);

5: listbox6.Items.LoadFromFile(opendialog1.FileName);

6: listbox7.Items.LoadFromFile(opendialog1.FileName);

end;

end;

Процедура на кнопку «Добавить» - содержимое строки ввода добавляется в список ListBox выше выбранной в списке строки.

procedure TForm1.BitBtn2Click(Sender: TObject);

Begin

case pagecontrol1.ActivePageIndex of

0: listbox1.Items.Insert(listbox1.ItemIndex,edit1.text);

1: listbox2.Items.Insert(listbox2.ItemIndex,edit1.text);

2: listbox3.Items.Insert(listbox3.ItemIndex,edit1.text);

3: listbox4.Items.Insert(listbox4.ItemIndex,edit1.text);

4: listbox5.Items.Insert(listbox5.ItemIndex,edit1.text);

5: listbox6.Items.Insert(listbox6.ItemIndex,edit1.text);

6: listbox7.Items.Insert(listbox7.ItemIndex,edit1.text);

end;

edit1.Clear;// очистка поля ввода

edit1.SetFocus;// возвращение фокуса в поле ввода

end;

Самостоятельнонапишите процедурына кнопки «Сохранить», «Удалить», «Изменить».