|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите исправить ошибку в программе
Код:
type TForm5 = class(TForm) Image1: TImage; StaticText1: TStaticText; Button1: TButton; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; answers:array[0..8]of boolean; implementation {$R *.dfm} procedure TForm5.Button1Click(Sender: TObject); var count,i:integer; begin if radiogroup1.ItemIndex=1 then //обращаю внимание на то, что нумерация начинается с 0, т.е. правильный ответ во второй строчке answers[1]:=true else answers[1]:=false; count:=0; for i:=0 to 5 do if answers[i] then inc(count); // смена картинок по кнопке inc(n); Image1.Picture.LoadFromFile(IntToStr(n)+'.jpg'); if n=1 then statictext1.caption:='Обласний ...'; ShowMessage ('Вы ответили правильно! +1') if n=2 then statictext1.caption:='Памяятник визволителям м.Кропивницького'; if n=3 then statictext1.caption:='Памятник "Скорбящей Матери"'; if n=4 then statictext1.caption:='Памятник двірнику в м.Кропивницькому'; if n=5 then statictext1.caption:='Кіровоградський обласний краєзнавчий музей'; if n=6 then statictext1.caption:='6?'; if n=7 then statictext1.caption:='Де знаходться Перший памятник травмваю?'; if n=8 then statictext1.caption:='Пашкевич' end; end. lmikle: Пользуемся тегами пишет замечание в begin if radiogroup ... Последний раз редактировалось lmikle, 20.12.2017 в 19:31. |
#2
|
|||
|
|||
Правильно пишет. Дай угадаю - пишет Undeclared или Unknown identifier.
Где у тебя radiogroup1 задекларирована? Походу, забыл "бросить" на форму. |
Этот пользователь сказал Спасибо lmikle за это полезное сообщение: | ||
vetalgov (31.12.2017)
|
#3
|
|||
|
|||
Да спасибо это исправил.
Но у меня появилась новая ошибка
Image1.Picture.LoadFromFile(IntToStr(n)+'.jpg'); if n=1 then statictext1.caption:='Îáëàñíèé ...'; if n=2 tnen statictext1.caption:='dasdasd' 1)[Îøèáêà] Unit5.pas(47): Missing operator or semicolon 2)[Îøèáêà] Unit5.pas(49): 'THEN' expected but identifier 'tnen' found |
#4
|
|||
|
|||
Ну дык тебе же написали: ожидается THEN, а написано tnen. Просто опечатка.
|
#5
|
|||
|
|||
такс.. за это спасибо очень большое спасибо
а как по нажатии кнопке менять радиогруппу ?
|
#6
|
|||
|
|||
чего-чего? Выражай мысли четче.
|
#7
|
|||
|
|||
извени.
Смотри. когда я нажимаю кнопке "Ответить" у меня должна поменяться картинка вопрос и ответы к этому вопросу с картинкой
|
#8
|
||||
|
||||
Пошёл флуд, от этого толку мало, ТЗ в зубы и бегом в коднашару
Помогаю платно. Помогаю иногда бесплатно. |