Тест уверенность в себе Часть третья.

Пишем первую программу.

Кнопке очень часто добавляем 4 балла, кнопке часто 3 балла, редко 2 балла и кнопке никогда 0 баллов т.е ничего не добавляем. Таким образом мы вычисляем "ценность" каждого ответа, сравниваем кол-во баллов с одним из трех вариантов low,mid,hi есть совпадение выводим данный ответ.



Эта процедура срабатывает автоматически как только у нас создается окно программы.
Что мы здесь делаем? А мы просто присваиваем переменным нулевые значения инициализируем
счетчики чтобы переменные были именно нулевыми а не какими то другими значениями. загружаем вопросы в список и выводим первый вопрос в мемо1.

procedure TForm1.FormCreate(Sender: TObject);
begin
count:=0; next_:=0; loadans; nextline;
end;

А вот эта процедура срабатывает как только мы закрываем программу её окно
здесь мы освобождаем список строк процедурой Free освобождаем память от мусора,
ведь если программа не запущена нам этот список не потребуется, а память ОС будет загрязнять.

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
list.Free;
end;

Теперь напишу для новичков как все это сделать и получить рабочую программу.
Вы скачали Delphi или поставили с диска не важно. Запускаете среду разработки и выбираете файл-создать приложение File->New Application делфи генерирует главное окно программы и код программы, он находится под окном программы, именно в редакторе кода мы и будем писать код.

Сверху мы видим палитру компонентов (кнопки, окна для ввода текста и многие другие визуальные и не визуальные компоненты из которых мы построим "графику" нашей программы).

Первое выбираем компонент GroupBox это такая рамочка для оформления

Выбираем ее и устанавливаем ее на нашу форму просто щелкнув левой кнопкой мыши по компоненту и щекнуть на форму той же левой кнопкой мыши. Далее вы можете изменять размеры компонента и переносить по форме и распологать в любом понравившемся месте.

Далее выбираем мемо:

Потом еще одну рамку для радиокнопок и сами кнопки

Когда мы все расположили на форме теперь стоит их заполнить:

Щелкаем по GroupBox и в инспекторе объектов Object Inspector выбираем свойство Caption и вводим желаемый текст.

Потом выбираем форму Form1 и в том же свойстве caption записываем заголовок программы.

Далее сохраним весь проект

И компилируем программу и запускаем её

В следующей статье опищу упущенные моменты и ошибки которые можно допустить и не получить рабочей программ.