Помогите написать код для проги(Тест). Что бы по кнопке менялись и фотка и вопрос и задание.
я уже немного набросал код, только выдало ошибку...
Код:
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: Пользуемся тегами