Реферат: Создание теста в Delphi

…

end;

end;

end;

end;

{Отображение результата}

case a of {Фактор А}

1..5:begin

FormTest.Memo1.Lines.Add('"Шизотермия"');

…

end;

end;

end;

{добавление вопросов в Memo}

procedure addtest;

begin

if nomer=1 then

begin

nomer:=nomer+1;

clear;

FormTest.memo1.Lines.Add('1. Я хорошо понял инструкцию, которую только что прочитал:');

FormTest.RadioGroup1.Items.Add('а) Да;');

FormTest.RadioGroup1.Items.Add('в) не уверен;');

FormTest.RadioGroup1.Items.Add('с) нет.');

end

else

begin

if nomer<188 then

if FormTest.RadioGroup1.ItemIndex=-1 then