В чём ошибка(Delphi)?

Question

[TheForgetDragon]

Form1: TForm1;
  ball:integer;
  type answers=array[1..9,0..3] of byte;
  const otv:answers= ((0,1,0,0),(1,0,0,0),(0,1,0,0),(0,0,1,0),(0,1,0,0),(0,0,1,0),(0,0,1,0),(0,0,0,1),(1,0,0,0));
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.itemIndex]+
  otv[2,radiogroup2.itemIndex]+
  otv[3,radiogroup3.itemIndex]+
  otv[4,radiogroup4.itemIndex]+
  otv[5,radiogroup5.itemIndex]+
  otv[6,radiogroup6.itemIndex]+
  otv[7,radiogroup7.itemIndex]+
  otv[8,radiogroup8.itemIndex]+
  otv[9,radiogroup9.itemIndex];
  if (ball<1) or (ball>10)
  then label2.Caption:='Ответье на все вопросы!'
  else
       label2.caption:='Правильно ответил на '+IntToStr(ball)+' из 9-ти вопросов';
       if ball=9
       then label3.caption:='Молодец!Ты хорошо знаешь архитектуру Томска. :)'
       else
          if (ball>=4) and (ball<9)
          then label3.caption:='Нормально. У тебя средние знания об архитектуре Томска.'
          else label3.caption:='Плохо! Ты очень плохо знаешь архитектуру Томска"';
end;

end.

Не понимаю в чём ошибка?

Comments

[Ярослав Иванов]

в быдлокодерстве

[TheForgetDragon]

Александр +: var
Form1: TForm1;
ball:integer;
type answers=array[1..9,0..3] of byte;
const otv:answers= ((0,1,0,0),(1,0,0,0),(0,1,0,0),(0,0,1,0),(0,1,0,0),(0,0,1,0),(0,0,1,0),(0,0,0,1),(1,0,0,0));
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
ball:=otv[1,radiogroup1.itemIndex]+
otv[2,radiogroup2.itemIndex]+
otv[3,radiogroup3.itemIndex]+
otv[4,radiogroup4.itemIndex]+
otv[5,radiogroup5.itemIndex]+
otv[6,radiogroup6.itemIndex]+
otv[7,radiogroup7.itemIndex]+
otv[8,radiogroup8.itemIndex]+
otv[9,radiogroup9.itemIndex];
if (ball<1) or (ball>10)
then label2.Caption:='Ответье на все вопросы!'
else
label2.caption:='Правильно ответил на '+IntToStr(ball)+' из 9-ти вопросов';
if ball=9
then label3.caption:='Молодец!Ты хорошо знаешь архитектуру Томска. :)'
else
if (ball>=4) and (ball<9)
then label3.caption:='Нормально. У тебя средние знания об архитектуре Томска.'
else label3.caption:='Плохо! Ты очень плохо знаешь архитектуру Томска"';
end;

end.

Answer 1

[kalapanga]

Так Вам никто ничего не сможет подсказать. Есть ошибки компиляции. Компилятор при этом указывает на строку, в которой ошибка и пишет, что ему в ней не нравится. И есть ошибки времени выполнения. Вы запустили программу, и в процессе работы бац - ошибка. Если Вы запустили программу под отладчиком, то и в этом случае Вам укажут строку с ошибкой. В первую очередь нужно прочитать и попытаться понять сообщение об ошибке, возможно сами всё исправите. Не получилось - давайте его (сообщение об ошибке) сюда. Вот, мол, в строке такой-то ошибка такая-то, объясните плиз, что это значит.
Или под ошибкой Вы понимаете, что всё компилируется и работает, но делает не то, что Вы хотите? Тогда описывайте что должно быть, а что реально получилось.

Comments

[TheForgetDragon]

Когда я отвечаю на первый вопрос, у меня почему то пишет "Правильно ответил на 2 из 9-ти вопросов", а должно быть так "Правильно ответил на 1 из 9-ти вопросов". С 2-8 вопрос все нормально, а вот последний не считает вообще. То есть когда отвечаю на 8 вопрос, пишет "Правильно ответил на 9 из 9-ти вопросов"
(т.к. в первом вопросе засчитало 2). Последний пишет опять "Правильно ответил на 9 из 9-ти вопросов", а не "Правильно ответил на 10 из 9-ти вопросов".

[kalapanga]

TheForgetDragon: Я так думаю, что Вы радиогруппы настроили как-то не так. У вас исходно какой-то пункт в них выбран (точка стоит)? Или исходное состояние никакой пункт не выбран (точки нет вообще)? В первом случае у Вас все вопросы всегда "отвечены" и даже если пользователь ничего не менял, правильных по вашей табличке будет как раз 2, а проверка if (ball<1) or (ball>10) смысла не имеет.

[TheForgetDragon]

kalapanga: Я еще могу скинуть сам проект...

[kalapanga]

TheForgetDragon: Ну кидайте, быстрее разберёмся

[TheForgetDragon]

kalapanga: rgho.st/7yk6qPkGb

[kalapanga]

TheForgetDragon: А где файл, в котором форма-то? pas и dfm? Там всё самое интересное

[TheForgetDragon]

kalapanga: А где он?(я просто мало разбираюсь в Delphi)

[kalapanga]

TheForgetDragon: В таких маленьких работах обычно всё в одном каталоге живёт. А у Вас, судя по содержимому Project23.dpr, форма где-то за километр ..\Проектная работа МУЗЕЙ - копия.files\Test\test1.pas. И там же ещё test1.dfm должен быть. Вот это всё давайте сюда. Там все Ваши кнопочки и код.

[TheForgetDragon]

А сейчас

[TheForgetDragon]

kalapanga: rgho.st/6frQqzrbw

[TheForgetDragon]

Вот

[kalapanga]

Ну почти оно. А файлы "без закорючек" там есть? Не test1.~pas, а test1.pas. Не test1.~dfm, а test1.dfm?
С тильдой это предыдущая версия файла, не самая последняя.

[TheForgetDragon]

kalapanga: Нет только dcu и ddp

[kalapanga]

TheForgetDragon: Собственно и эти сойдут. Понял, что не так. Почему не так - попозже напишу. Домой пора идти...

[TheForgetDragon]

kalapanga: Хорошо. Мне просто сегодня нужно это сделать...

[kalapanga]

TheForgetDragon: Кнопки поставлены как надо, а вот используете Вы их неправильно. Допустим человек на первый вопрос не отвечал, т. е. не выбрал ничего. В этом случае radiogroup1.itemIndex будет равен -1. А чему по Вашему будет равен в этом случае otv[1,radiogroup1.itemIndex]? Погоде на Марсе, наверное. Так что поменяйте логику приложения.
Допустим, Вы хотите заставить пользователя ответить на все вопросы. Тогда в начале этой процедуры проверьте - у всех ли радиогрупп ItemIndex >= 0. Если не у всех, то никаких баллов не считаем, а только сообщаем "Ответьте на все вопросы". Если у всех, то как сейчас производим суммирование баллов и вывод результата. Всё.
По крайней мере, работать будет.

[TheForgetDragon]

kalapanga: Понятно. Я просто отсюда взял это https://www.youtube.com/watch?v=_5Jecyl0fcc

[kalapanga]

TheForgetDragon: У автора ролика совсем отсутствует проверка на все ли вопросы пользователь ответил. Попытавшись её добавить, Вы и столкнулись с этим ляпом в коде - обращением за пределы массива, если на вопрос не отвечено

[TheForgetDragon]

kalapanga: Ну и на этом тебе огромное спасибо!