|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Помогите написать код для проги (Тест)
Помогите написать код для проги(Тест). Что бы по кнопке менялись и фотка и вопрос и задание.
я уже немного набросал код, только выдало ошибку... Код:
unit Unit5; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, Jpeg, ExtCtrls; type TForm5 = class(TForm) Image1: TImage; StaticText1: TStaticText; Button1: TButton; RadioGroup1: TRadioGroup; procedure Button1Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form5: TForm5; n:integer; answers:array[0..8]of boolean; implementation {$R *.dfm} procedure TForm5.Button1Click(Sender: TObject); var count,i:integer; begin if radiogroup1.ItemIndex=1 then answers[1]:=true else answers[1]:=false; count:=0; for i:=0 to 5 do if answers[i] then inc(count); showmessage('Вы ответили верно на '+inttostr(count)+' из 6ти вопросов'); // смена картинок по кнопке inc(n) Image1.Picture.LoadFromFile(IntToStr(n)+'.jpg'); // вот сдесь у меня первая ошибка if n=1 then statictext1.caption:='Обласний ...'; if n=2 tnen statictext1.caption:='dasdasd' а вот сдесь вторая ошибка 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: Пользуемся тегами Последний раз редактировалось lmikle, 31.12.2017 в 20:08. |