Вопрос *где в программном коде реализуется следующая операция...

[Roman Charming]

Здраствуйте всем

У меня вопрос по программному коду моей задачи в Дельфи
Скрин окна задачки в Дельфи я прикрепил как изображение

Сама задача:
Изобразить на экране точку, которая пересекает с постоянной скоростью экрана справа налево параллельно его горизонтальной оси. Скорость перемещения можно задавать.


Преподаватель попросил меня в коде показать ему, где задаваемая скорость в окне( чем меньше число тем меньше скорость и наоборот ) считывается самой программой и точка начинает двигаться влево-вправо.

В какой строке... как программа вообще считывает эту скорость и задает определенную скорость точке

Вот код самой программы

----------------------------------------------------------------------

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Timer1: TTimer;
    Shape1: TShape;
    Edit1: TEdit;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Edit1Change(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;
  hx: integer;
  x: real;
implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
//Задаём шаг
hx:=10;
//Включаем объект таймер
timer1.Enabled:=true;
//Задаём ему интервал
timer1.interval:=strtoint(Edit1.Text);
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
//Высчитываем координаты
x:=x+hx;
//Если x больше размеров окна то меняем направление
if (x>Form1.Height-40) then hx:=-10;
//Если х меньше то тоже меняем направление
if (x<10) then hx:=10;
//Присваеваем новые координаты точке
shape1.Left:=round(x);
end;

procedure TForm1.Edit1Change(Sender: TObject);
begin
//Изменяем скорость, если едит пустой то скорость равна 100
if (Edit1.Text='') then Edit1.Text:='100';
//Меняем интервал
timer1.interval:=strtoint(Edit1.Text);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
//Останавливаем процесс
timer1.Enabled:=false;
end;

end.

-------------------------------------------------------

Буду очень признателен

С уважением*

[Hollander]

У тебя все действия выполняются по таймеру. Когда ты меняешь время таймера, выполняется этот код, который собственно говоря и изменяет значение таймера и скорость:

procedure TForm1.Edit1Change(Sender: TObject);
begin
//Изменяем скорость, если едит пустой то скорость равна 100
if (Edit1.Text='') then Edit1.Text:='100';
//Меняем интервал
timer1.interval:=strtoint(Edit1.Tex t);
end;

[Roman Charming]

Верно, так я преподавателю и сказал, но он задал встречный вопрос - что даже если вводимое число считывается программой - то как это передается точке?
Я неверно выразился - чем больше число задается, тем медленнее движется точка и наоборот

Каким образом она движется...он так ине понял

[Stilet]

чем больше число задается, тем медленнее движется точка и наоборот

Правильно. Ты точку двигаешь через некоторый интервал времени.

timer1.interval:=strtoint(Edit1.Tex t);

Задашь двинуть точку через 5 сек, она и будет ждать 5 сек потом двинется. Задашь побольше число 25 сек - она и будет ждать 25 сек и только потом подвинется - Это и есть эффект скорости. Вспомни физику как там время со скоростью связаны.

[Roman Charming]

Точно точно.... Видимо вся ошибка была в моей же мысли о том, что я скорость и движение неверно связал в пропорции - вот он и не понял

Миллион спасибо!