|
|
Регистрация | << Правила форума >> | 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. |