Проект «Редактирование списка вопросов»

Постановка задачи. Цель проекта – научиться редактировать список, сохранять его в файле и загружать из файла.

Реализация. Создайте файл с вопросами, положите на форму компоненты TListbox, TEdit, TMainMenu, TButton, диалоги TOpenDialog, TSaveDialog. Реализуйте следующие опции меню «Файл»: Файл\Открыть и Файл\Сохранить.

Минимальный набор функций опции «Редактирование» показан на рис. 41.

Рис. 41. Набор функций «Редактирование»

Ниже приведен код для обработчиков функций, а на рис. 42 − результат работы приложения после выполнения функции «Добавить».

procedure TForm1.N1Click(Sender: TObject);

begin

if opendialog1.Execute then

listbox1.Items.LoadFromFile(opendialog1.FileName);

end;

procedure TForm1.N2Click(Sender: TObject);

begin

if savedialog1.Execute then

listbox1.Items.savetoFile(savedialog1.FileName);

end;

procedure TForm1.N3Click(Sender: TObject);

begin

listbox1.Items.Add(edit1.Text);

end;

procedure TForm1.N4Click(Sender: TObject);

begin

listbox1.Items.Delete(listbox1.Itemindex);

end;

procedure TForm1.N5Click(Sender: TObject);

begin

listbox1.Items.Insert(listbox1.ItemIndex,edit1.Text);

end;

procedure TForm1.N6Click(Sender: TObject);

begin

ListBox1.Items.Clear;

end;

Рис. 42. Проект «Редактирование списка»

Задание. Сделайте тест на любую тему. Используйте несколько форм: заставка, редактирование, тестирование. Для ответа на вопрос можно использовать компонент TEdit (для ввода правильного ответа), а можно предложить выбор из нескольких вариантов, среди которых только один правильный. Тогда понадобится файл с номерами правильных ответов. Подробнее этот случай рассмотрим в следующей главе в проекте «Знаете ли вы загадки?».