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

Информатика. Программирование в Delphi
166
//предназначена для компонентов Edit1,Edit2,Edit3
procedure TForm1.EditChange(Sender: TObject);
begin
//очистка списков ListBox1 и ListBox2
ListBox1.Items.Clear;
ListBox2.Items.Clear;
//запрещение работы кнопки Пуск
Button1.Enabled:=false;
//если значения верхней границы,
//нижней границы и цены деления шкалы
//введены правильно
if (Edit1.Text<>'') and (Edit1.Text<>'-') and
(Edit2.Text<>'') and (Edit2.Text<>'-') and
(Edit3.Text<>'') and (StrToFloat(Edit3.Text)<>0) then
//если значение верхней границы больше нижней границы
if StrToFloat(Edit1.Text)>StrToFloat(Edit2.Text) then
begin
//формирование списка значений в компоненте ListBox1
ListBox(ListBox1,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
//формирование списка значений в компоненте ListBox2
ListBox(ListBox2,StrToFloat(Edit1.Text),StrToFloat(Edit2.Text),
StrToFloat(Edit3.Text));
//выделение начального элемента списка
ListBox1.ItemIndex:=0;
//выделение последний элемент списка
ListBox2.ItemIndex:=ListBox2.Items.Count-1;
//разрешение работы кнопки Пуск
Button1.Enabled:=true;
end;
end;
7. Создайте процедуру FormCreate для события OnCreate формы Form1 .
//происходит при создании формы
procedure TForm1.FormCreate(Sender: TObject);
begin
//инициализация генератора случайных чисел
randomize;
//запрещение работы таймера
Timer1.Enabled:=false;
//интервал работы таймера
Timer1.Interval:=500;
//стиль формы
Form1.BorderStyle:=bsDialog;