Движение ломанной линии Делфи

[Walter]

Вечер добрый... можете подсказать одну вещь, как создать массив Data и что в нём надо указывать... есть код, но в задании дано, что надо создать массив для начала, и его использовать в обработчике.
Т.е. может этот массив должен содержать какие то координаты точек или ещё чего??? Есл кто может обьясните плз

procedure TForm1.Button1Click(Sender: TObject);
var
  gr: array[1..50] of TPoint;
  x0,y0: integer;
  dx,dy: integer;
  i:integer;
begin
  x0:=10; y0:=200;
  dx:=5; dy:=5;
    for i:=1 to 50 do
     begin
      gr[i].x:=x0+(i-1)*dx;
      gr[i].y:=y0-Data[i]*dy;
     end;
    with form1.Canvas do
    begin
      MoveTo(x0,y0);  LineTo(x0,10);
      MoveTo(x0,y0);  LineTo(200,y0);
      Polyline(gr);
    end;
end;

end.

[MalCer]

Как видно из текста, массив дата должен быть целым числом(integer), значит массив для Data будет
data: array[0..2] of Integer;
Числа в массиве зависят от того, какая ломанная вам нужна.
ЗЫ: Сам ничего не знаю, просто так думаю

[Walter]

Понятно... попробуем поэксперементировать )

[DomiNick]

Движение ломанной линии Делфи

Не совсем понятно... Что именно должно получаться-то?

[Walter]

Ну вообщем, она у меня ещё не полная, а должно получиться следующее:
В PaintBox случайно движется ломанная из 4-х случайно построенных звеньев длины 10. Следующий шаг ломанная выбирает в одном из 4-х направлений (вверх, вниз, вправо, влево). Длина шага также выбираеться случайно.

[DomiNick]

А сама ломанная изменяется при движении? И что это за "шаг"..?
Она вообще плавно должна двигаться или рывками?

[Walter]

Насчёт плавно или рывками ненаю, наверн рывками... изменения не происходят, т.е. просто она как то по кускам наверн двигаеться, ну т.е. каждое звено, а шаг я так понимаю расстояние которое оно движеться в какое то определённое направление. Ну эт я как понял, т.к. в задаче тока это и написано )))

[DomiNick]

Я к тому, что дано мало данных для решения задачи...
"звенья длины 10" - длина постоянная?
"Следующий шаг ломанная выбирает в одном из 4-х направлений" - целиком или для каждого звена?
"длина шага" - это что ещё за длина такая?

В общем не понятно (С)...


Ну... Предположим, что она должна целиком вся двигаться:

Var Line: Array [0..4] Of TPoint;
...
Procedure GenerateRandomLine;
Var i, Ang: Integer;
Begin
Line[0].X:=Random(120)+180;  // первые координаты задаются случайно
Line[0].Y:=Random(120)+180;
For i:=1 To 4 Do
      Begin
      Ang:=Random(360);  // случайный угол
      Line[i].X:=Round(Line[i-1].X+100*Cos(Ang*Pi/180));  // остальные - через угол, чтоб длина отрезков была равной 100 (при 10-ти они получались слишком мелкими)
      Line[i].Y:=Round(Line[i-1].Y+100*Sin(Ang*Pi/180));
      End;
End;

Procedure TForm1.FormCreate(Sender: TObject);
Begin
GenerateRandomLine;
Timer1.Interval:=100;
Timer1.Enabled:=True;
End;

Procedure TForm1.SpeedButton1Click(Sender: TObject);
Begin
GenerateRandomLine;
End;

Procedure TForm1.Timer1Timer(Sender: TObject);
Var i, n, m: Integer;
Begin
n:=Random(6)+4; // это будет случайный "шаг"
m:=Random(3); // случайное направление
For i:=0 To 4 Do
      Begin
      Case m Of    // проверяем куда двигаться
            0:
                  Line[i].X:=Line[i].X+n;  // вправо
            1:
                  Line[i].X:=Line[i].X-n;  // влево
            2:
                  Line[i].Y:=Line[i].Y+n;  // вниз
            3:
                  Line[i].Y:=Line[i].Y-n;  // вверх
            End;
      End;
Image1.Canvas.FillRect(Image1.Canvas.ClipRect);  // заливаем рисунок
Image1.Canvas.Polyline(Line);  // рисуем линию
End;

[Walter]

Так вообщем длина остаёться не изменной, т.е. рисуються 4 линии в любом направлении. К примеру вправо, вниз, вправо, вниз, ну т.е. как они рисуються, ну и эту всю конструкцию мона двигать целиком, т.е. на какое то определённое количество точек вверх, вниз, вправо, влево. А длина шага, эт тип 1 точка в какую то сторону )