Delphi. Программа "Тест". скачать в хорошем качестве

Delphi. Программа "Тест".

Допустим у вас есть файл in.txt лежащий в папке с проектом со следующей структурой: Вопрос1 Ответ 1 Ответ 2 Ответ 3 Ответ 4 Ответ 1, эта строка нужна для определения правильного варианта ответа Вопрос 2 Ответ 1 Ответ 2 Ответ 3 Ответ 4 Ответ 3, .... и т.д. сколько хотите вопросов столько и забивайте.... далее следует разработка формы в Delphi - на форме помещаете из закладки Standart : Label1, RadioButon1, ... RadioButton 4 (в зависимости от количества варианта ответов в одном вопросе количество RadiButton может меняться) и конечно Button. Программирование: У формы как у компонента есть события. Следует выбрать событие FormCreate (нужное для того чтобы загрузить 1 вопрос и ответы при запуске программы). var t:textfile; s:string; i:integer; .... Итак procedure TForm...Form..Create.... begin assignfile (f, 'in.txt'); reset(f); readln(f,s); Label1.caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton1.Caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton2.Caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton3.Caption:=s; readln(f,s); // считываем следующую строку из файла если количество вариантов ответа 4 то тут и останавливаемся RadioButton1.Caption:=s; Далее. На форме есть Button (кнопка). У нее как у компонента есть событие OnClick - щелчок левой кнопкой мыши Итак procedure TForm...Button..Click if eof(f) then showmessage(inttostr(i)+'Правильных ответов') else readln(f,s); // если достигнут конец файла тогда выводим результат иначе считываем следующую строку, а эта строка - правильный ответ if (RadioButton1.Checked) and (RadioButton1.Caption=s) then inc(i); // если пользователем выбрана Radio и надпись на ней является такой же как считанная строка из файла тогда в переменную i c использованием функции inc добавляем + 1 if (RadioButton2.Checked) and (RadioButton2.Caption=s) then inc(i); if (RadioButton3.Checked) and (RadioButton3.Caption=s) then inc(i); if (RadioButton4.Checked) and (RadioButton4.Caption=s) then inc(i); // проверяем все возможные комбинации так как radiobutton у нас 4 штуки {далее следует продолжение чтения из файла} Label1.caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton1.Caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton2.Caption:=s; readln(f,s); // считываем следующую строку из файла RadioButton3.Caption:=s; readln(f,s); // считываем следующую строку из файла если количество вариантов ответа 4 то тут и останавливаемся RadioButton1.Caption:=s; end...