ger);
var
i: integer;
code: integer;
s, buf: string;
ifn: string;// файл ілюстрації
begin
vopros: = vopros +1;
str (vopros: 3, s);
frm.caption: = 'Питання' + s;
// Виведемо текст питання
buf: ='';
repeat
readln (f, s);
if (s [1] <> '.') and (s [1] <> '')
then buf: = buf + s + '';
until (s [1] = '.') or (s [1] = '');
frm.Label5.caption: = buf;
if s [1] = ''
then// до питання є ілюстрація
Продовження додатка 1
begin
frm.Image1.Tag: = 1;
ifn: = copy (s, 2, length (s));
try
frm.Image1.Picture.LoadFromFile (ifn);
except
on E: EFOpenError do
frm.Tag: = 0;
end// try
end
else frm.Image1.Tag: = 0;
// Читаємо варіанти відповідей
for i: = 1 to N_ANSWERS do
begin
answer [i]. caption: ='';
answer [i]. Width: = frm.ClientWidth-Form1.Label5.Left-5;
end;
i: = 1;
repeat
buf: ='';
repeat// читаємо текст варіанти відповіді
readln (f, s);
if (s [1] <> '.') and (s [1] <> ',')
then buf: = buf + s + '';
until (s [1] = ',') or (s [1] = '.');
// прочитаний альтеративний відповідь
val (s [2], score [i], code);
answer [i]. caption: = buf;
i: = i +1;
until s [1] = '.';
Продовження додатка 1
// тут прочитана ілюстрація та альтернативні відповіді
if Form1.Image1.Tag = 1// є ілюстрація?
then begin
ScalePicture;
Form1.Image1.Visible: = True;
end;
// висновок альтернативних відповідей
i: = 1;
while (answer [i]. Caption <>'') and (i <= N_ANSWERS) do
begin
if i = 1
then
if frm.Image1.Tag = 1
then answer [1]. Top: = frm.Image1.Top + frm.Image1.Height +5
else answer [i]. top: = frm.Label5.Top + frm.Label5.Height +5
else
answer [i]. top: = answer [i-1]. top + answer [i-1]. Height +5;
selector [i]. top: = answer [i]. top;
selector [i]. Visible: = true;
answer [i]. Visible: = true;
i: = i +1;
end;
end;
{$ R *. DFM}
procedure TForm1.FormActivate (Sender: TObject);
begin
ResetForm (Form1);
if ParamCount = 0
then
begin
Продовження додатка 1
Label5.font.color: = clRed;
Label5.Font.Size: = 12;
Label5.caption: = 'Не виявлено файлу питань тесту. ';
Button1.Caption: = 'Вихід';
Button1.Tag: = 2;
Button1.Enabled: = true;
end
else begin
fn:...
