Контрольная работа: Розробка програмного продукту "Тестер"

case Status of

tsActiv:

if MessageDlg('В даний момент активний тест. Хочете завершити його?',

mtInformation,[mbYes,mbNo],0)=mrYes then

Close ;

tsNotActiv: Close;

end ;

end ;

procedure TForm1.AboutProcClick(Sender: TObject);

begin

Application.CreateForm(TAboutBox, AboutBox);

AboutBox.ShowModal;

end ;

procedure TForm1.StartTestClick(Sender: TObject);

begin

if Status=tsNotActiv then

begin

if (OpenDialog.Execute)then

CreatStart(OpenDialog.FileName)

else begin

exit;

end ;

Panel1.Visible:=true;

Status:=tsActiv;

Label6.Caption:=inttostr(ArrayM.MAX);

Label8.Caption:=inttostr(Potochne+1);

Label9.Caption:='0';

timer1.Enabled:=true;

WritePutanya;