[vetalgov]

Код:

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]

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