Case i of

1: frm.Label1.caption:=buf;

2: frm.Label2.caption:=buf;

3: frm.Label3.caption:=buf;

4: frm.Label4.caption:=buf;

end;

until s[l]='.';

// здесь прочитана иллюстрация и альтернативные ответы

// текст вопроса уже выведен

if Forml.Image1.Tag =1 // есть иллюстрация к вопросу then

Begin

Scalelmage(Form1.Image1); Form1.Image1.Visible:=TRUE;

end;

// вывод альтернативных ответов

if Form1.Label1.Caption <> " then begin

if Forml.Image1.Tag =1

Then

frm.Label1.top:=frm.Imagel.Top+frm.Image1.Height+5

Else

frm.Label1.top:=frm.Label5.Top+frm.Labels.Height+5;

frm.RadioButton1.top:=frm.Label1.top;

frm.Labell.visible:=TRUE;

frm.RadioButton1.visible:=TRUE;

end;

if Forml.Label2.Caption <> " then begin

frm.Label2.top:=frm.Label1.top+ frm.Label1.height+5;

frm.RadioButton2.top:=frm.Label2.top;

frm.Label2.visible:=TRUE;

frm.RadioButton2.visible:=TRUE;

end;

if Forml.Label3.Caption <> '' then begin

frm.Label3.top:=frm.Label2.top+ frm.Label2.height+5;

frm.RadioButtonS.top:=frm.Label3.top;

frm.Label3.visible:=TRUE;

frm.RadioButtonS.visible:=TRUE;

end;

if Forml.Label4.Caption <> '' then begin

frm.Label4.top:=frm.Label3.top+ frm.Label3.height+5;

frm.RadioButton4. top:=frm.Label4.top;

frm.Label4.visible:=TRUE;

fm.Rad±o8utton4.vis:tble:=TRUE]

end;

end;

Procedure ResetForm(frm:TForml);

Begin

// сделать невидимыми все метки и переключатели

frm.Label1.Visible:=FALSE;

f rm.Label1.caption: ='';

frm.Label1.width:=frm.ClientWidth-frm.Label1.left-5;

frm.RadioButtonl.Visible:=FALSE;

frm.Label2.Visible:=FALSE;

frm.Label2.caption:='';

frm.Label2.width:=frm.ClientWidth-frm.Label2.left-5;

frm.RadioButton2.Visible:=FALSE;

frm.Label3.Visible:=FALSE;

frm.Label3.caption:='';

frm.Label3.width:=frm.ClientWidth-frm.Label3.left-5;

frm.RadioButton3.Visible:=FALSE;

frm.Label4.Visible:=FALSE;

frm.Label4.caption:='';

frm.Label4.width:=frm.ClientWidth-frm.Label4.left-5;

f rm.RadioButton4.Visible:=FALSE;

frm.Label5.width:=frm.ClientWidth-frm.Labels.left-5;

frm. Image1.Visible:=FALSE;

end;

// определение достигнутого уровня

procedure Itog(summa:integer;frmrTForml);

Var

i:integer; buf: string;

Begin

buf: = ";

str(summa:5,buf);

buf:='Результаты тестирования'+chr(13)

+'Всего баллов: '+buf; i:=1;

while (summa < level[i]) and (i<N_LEV) do

i:=i+l;

buf:=buf+chr(13)+mes[ i ]; frm.Labels.caption:=buf;

end;

{$R *.DFM}

procedure TForm1.FormActivate(Sender: TObject);

Begin

ResetForm(Form1);

if ParamCount = 0 then

Begin

Labels.caption:= 'He задан файл вопросов теста.';

Button1.caption: ='Ok';

Button1.tag:=2; Button1.Enabled:=TRUE

End