Стр. 175 - Информатика. Программирование в среде Delphi. Часть 1

Информатика. Программирование в Delphi
175
t:=Now;
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+' Система запущена...');
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Timer1.Enabled:=false;
Button1.Enabled:=true; Button2.Enabled:=false;
GroupBox1.Enabled:=true; GroupBox2.Enabled:=true;
t:=Now;
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
' Система остановлена...');
end;
procedure TForm1.Button3Click(Sender: TObject);
begin
Application.Terminate;
end;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
if random(100)<2 then
sign:=-sign;
value:=value+sign*step;
Edit4.Text:=FloatToStr(value);
if value<d then
edit5.Text:='Ниже нормы'
else
if value>=u then
edit5.Text:='Выше нормы'
else
edit5.Text:='Норма';
if (value>=up) or (value<=down) then
begin
t:=Now;
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
' Достигнуто критическое значение...');
Memo1.Lines.Add(FormatDateTime('hh:mm:ss',t)+
'Система остановлена...');
Timer1.Enabled:=false; Button1.Enabled:=true; Button2.Enabled:=false;
GroupBox1.Enabled:=true; GroupBox2.Enabled:=true;
end;
end;
end.