[vetalgov]

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

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]

Правильно пишет. Дай угадаю - пишет Undeclared или Unknown identifier.

Где у тебя radiogroup1 задекларирована? Походу, забыл "бросить" на форму.

[vetalgov]

Но у меня появилась новая ошибка
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

[lmikle]

Ну дык тебе же написали: ожидается THEN, а написано tnen. Просто опечатка.

[vetalgov]

а как по нажатии кнопке менять радиогруппу ?

[lmikle]

чего-чего? Выражай мысли четче.

[vetalgov]

Смотри. когда я нажимаю кнопке "Ответить" у меня должна поменяться картинка вопрос и ответы к этому вопросу с картинкой

[@Rafa3L]

Пошёл флуд, от этого толку мало, ТЗ в зубы и бегом в коднашару