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

begin

if savedialog1.execute then begin

assignfile(f,savedialog1.Filename);

rewrite(f);

for i:=1 to testnum do write(f,test[i]);

closefile(f)

end

end;

procedure TfrmMain.Button1Click(Sender: TObject);

var f:file of ttest;

begin

if opendialog1.execute then begin

assignfile(f,opendialog1.Filename);

reset(f);

testnum:=1;

while not eof(f) do begin

read(f,test[testnum]);

inc(testnum)

end;

statictext1.Caption:='Всего вопросов '+inttostr(testnum);

closefile(f);

spinedit1.value:=1;

spinedit1change(sender)

end

end;

procedure TfrmMain.FormCreate(Sender: TObject);

var i:byte;

begin

testnum:=1;