= ParamStr (1);
assignfile (f, fn);
{$ I-}
reset (f);
{I +}
if IOResult = 0 then
begin
Info (f, Label5);
GetLevel (f);
end;
summa: = 0;
end;
end;
procedure TForm1.Button1Click (Sender: TObject);
begin
case Button1.tag of
0: begin
Button1.caption: = 'Далі';
Button1.tag: = 1;
Selector [N_ANSWERS +1]. Checked: = true;
// висновок першого питання
Button1.Enabled: = false;
Продовження додатка 1
ResetForm (Form1);
VoprosToScr (f, Form1, vopros)
end;
1: begin// вивід решти питань
summa: = summa + score [otv];
Selector [N_ANSWERS +1]. Checked: = true;
Button1.Enabled: = false;
ResetForm (Form1);
if not eof (f)
then VoprosToScr (f, Form1, vopros)
else
begin
closefile (f);
Button1.tag: = 2;
Button1.caption: = 'Вихід';
Button1.Enabled: = true;
Itog (summa, Form1);
end;
end;
2: begin// завершення роботи
Form1.Close;
end;
end;
end;
// клацання на кнопці вибору відповіді
Procedure TForm1.SelectorClick (Sender: TObject);
var
i: integer;
begin
i: = 1;
Продовження додатка 1
while Selector [i]. Checked = false do
i: = i +1;
otv: = i;
Button1.enabled: = true;
end;
procedure TForm1.About1Click (Sender: TObject);
begin
AboutBox.ShowModal;
end;
procedure TForm1.Save1Click (Sender: TObject);
begin
savedialog1.Execute;// збереження даних
memo1.Lines.SaveToFile (savedialog1.FileName);
end;
procedure TForm1.Contents1Click (Sender: TObject);// Висновок довідки
const
HELP_TAB = 15;
INDEX_ACTIVE = 10;
CONTENTS_ACTIVE = 5;
Help_CONTENS = 10;
begin
Application.HelpCommand (HELP_TAB, INDEX_ACTIVE);
Application.HelpCommand (HELP_TAB, CONTENTS_ACTIVE);
end;
procedure TForm1.N1Click (Sender: TObject);
begin
Form1.Close;
end;
procedure TForm1.Timer1Timer (Sender: TObject);
begin
Продовження додатка 1
x: = x +0.1;
Label2.Left: = 60 + trunc (60 * cos (x));
Label2.Top: = 65-trunc (15 * sin (x));
end;
end.
