Текст программы
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