[Grunch]

Сообщение от Interface

Боюсь меня неправильно поняли...
Есть 2 точки; Одна из них по этой процедуре должна перемещаться к другой; значит процедура получает 4 числа (координаты 1 и 2 точки), а выдает уже 2 (новые координаты первой точки)... Как это сделать? Если можно то напишите код проги которая будет использовать эту процку. Зарание спасибо...

Код:

Type
    TPoint=record
        x,y: integer;
    end;

var
  Point1, Point2: TPoint

function MovePoint(P1, P2: TPoint):TPoint;
begin
    // тут код перемещения P1
    Result:=P1;
end;