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

Информатика. Программирование в Delphi
172
Label6: TLabel;
Edit4: TEdit;
Label7: TLabel;
Edit5: TEdit;
GroupBox4: TGroupBox;
Button1: TButton;
Button2: TButton;
Button3: TButton;
procedure FormCreate(Sender: TObject);
procedure EditKeyPress(Sender: TObject; var Key: Char);
procedure EditChange(Sender: TObject);
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
procedure ListBox(var LB:TListBox;up,down,step:real);
var
Form1: TForm1;
up,down:real;
u,d:real;
step:real;
sign:integer;
value:real;
t:TDateTime;
implementation
{$R *.dfm}
procedure ListBox(var LB:TListBox;up,down,step:real);
var
i:real;
begin
i:=up;
while i>=down do
begin
LB.Items.Add(FloatToStr(i));
i:=i-step;
end;
end;