Реферат: Разработка программы психотестирования

frmmain.hide;

assignfile(f,testfilename);

try

reset(f);

except

showmessage('Файл теста не найден!');

exit

end;

testnum:=1;

while not eof(f) do begin

try

read(f,test[testnum]);

inc(testnum);

except

showmessage('Ошибка в файле теста');

frmmain.show;

exit

end

end;

closefile(f);

frmTest.show;

end;

procedure TfrmMain.SpeedButton1Click(Sender: TObject);

begin

testfilename:='Time.tst';

runtest

end;

procedure TfrmMain.SpeedButton2Click(Sender: TObject);

begin