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

Информатика. Программирование в Delphi
174
procedure TForm1.FormCreate(Sender: TObject);
begin
randomize;
Timer1.Enabled:=false;
Timer1.Interval:=500;
Form1.BorderStyle:=bsDialog;
Memo1.ScrollBars:=ssVertical;
Memo1.ReadOnly:=true;
Button2.Enabled:=false;
Edit1.Tag:=0;
Edit2.Tag:=0;
Edit3.Tag:=1;
Edit4.ReadOnly:=true;
Edit5.ReadOnly:=true;
Edit1.OnKeyPress:=EditKeyPress;
Edit2.OnKeyPress:=EditKeyPress;
Edit3.OnKeyPress:=EditKeyPress;
Edit1.OnChange:=EditChange;
Edit2.OnChange:=EditChange;
Edit3.OnChange:=EditChange;
ListBox(ListBox1,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
ListBox(ListBox2,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
ListBox1.ItemIndex:=0;
ListBox2.ItemIndex:=ListBox2.Items.Count-1;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
up:=StrToFloat(Edit1.text);
down:=StrToFloat(Edit2.text);
step:=StrToFloat(Edit3.text);
sign:=1;
value:=down;
u:=StrToFloat(ListBox1.Items[ListBox1.ItemIndex]);
d:=StrToFloat(ListBox2.Items[ListBox2.ItemIndex]);
if u<=d then
begin
Memo1.Lines.Add('Внимание: неправильное значение
НИЖЕ НОРМЫ или ВЫШЕ НОРМЫ...');
exit;
end;
Timer1.Enabled:=true; Button1.Enabled:=false;
Button2.Enabled:=true;
GroupBox1.Enabled:=false;
GroupBox2.Enabled:=false;