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

Информатика. Программирование в Delphi
164
Добавьте на компонент GroupBox4 компоненты:
- Button1 с заголовком Пуск ;
- Button2 с заголовком Стоп;
- Button3 с заголовком Выход.
4. Добавьте перед разделом объявления глобальных переменных Var объявле-
ние процедуры ListBox:
procedure ListBox(var LB:TListBox;up,down,step:real);
Далее добавим эту процедуру в раздел Implementation.
//формирует в указанном компоненте ListBox
//список от минимума down
//до максимума up с шагом step
procedure ListBox(var LB:TListBox;up,down,step:real);
var
//счетчик
i:real;
begin
//начальное значение счетчика
//список формируется от максимального значения так,
//чтобы максимальное значение шкалы
//было в начале списка
i:=up;
//уменьшаем счетчик пока
//он не станет меньше минимума down
while i>=down do
begin
//добавление значения счетчика в список
LB.Items.Add(FloatToStr(i));
//изменение значения счетчика
i:=i-step;
end;
end;
5. Добавьте объявление процедуры EditKeyPress после объявления компонен-
тов формы.
procedure EditKeyPress(Sender: TObject; var Key: Char);
Далее в разделе Implementation добавьте процедуру EditKeyPress.
//происходит при нажатии клавиши в полях Edit
//общая процедура для компонентов Edit1,Edit2 ,Edit3
procedure TForm1.EditKeyPress(Sender: TObject; var Key: Char);
var
//переменная типа TEdit
Edit:TEdit;
begin
//получение ссылки на объект Edit,
//на котором произошло событие