Работа с динамическим массивом Опции

[Tan]

Доброго времени суток ув. форумчане! Обращаюсь к вам со своей проблемой, для начала опишу текущую картину.

Имеется следующий класс :

type
  point = class 
       id : integer;
        X : real;
        Y : real;
        Z : real;
    function Point (x : real; y : real; id_get : integer) : integer;
    end;

Описание функции этого класса :

function point.Point (x : real; y : real; id_get : integer) : integer;
var id : Integer;
begin
       id := - 1;
 	X := x;
 	Y := y;
 	if ( id_get <> -1 ) then id_get := id;
end;

Типы данных :

    init_points : array of integer;
    xPos, yPos, zPos : integer;
    tab : array of point;

Так же есть функция которая заполняет переменные xPos, yPos, zPos значениями и вызывает функцию добавления точки.

procedure TForm1.GiveValues();
var i : integer;
begin
  for i:= Low(init_points) to High(init_points)
  do
    if ( ( i mod 3 ) = 0 ) then
    begin
        xPos := init_points[i]; 
        yPos := init_points[i + 1];
        zPos := init_points[i + 2] - 150;
        AddPoint();
    end;
end;

И вот сама ключевая функция AddPoint() :

procedure TForm1.AddPoint();
var deletion : boolean;
    dx, dy, dist : real;
    i, y : integer;
    p : point;
    new_point : point;
begin
   deletion := FALSE;
   if ( ( zPos > 0 ) or ( xPos < 0 ) ) then Exit;
   if ( Length(tab) > 0 ) then
   begin
     for i := Low(tab) to High(tab) do
       begin
         p := tab[i];
         dx := p.X - xPos;
         dy := p.Y - yPos;
         dist := sqrt (dx * dx + dy * dy);
          if (dist < 4) then
             begin
                deletion := TRUE;
                for y := i to High(tab) - 1 do tab[y] := tab[y + 1];  //смещаем на элемент вниз
                SetLength(tab, High(tab) - 1);  //уменьшаем размер так как убрали 1 элемент
             end;
       end;
   end;
    if ( deletion = FALSE ) then
      begin
             new_point.Point(xPos, yPos, -1);
             new_point.Z := zPos + 150; // !!!! Вот тут программа вылетает !!!!
             SetLength(tab, High(tab) + 1);
             tab[Length(tab)] := new_point; // добавляем в конец новый элемент
      end;
end;

Как я отметил в коде, программа вылетает на строке new_point.Z := zPos + 150; с ошибкой EAccessViolation. Мне кажется это связано с неверной работой с динамическими массивами, но более детально я не могу понять суть этой проблемы. Буду рад помощи, заранее спасибо.

Сообщение отредактировано: Tan - 1.11.2011 14:16

[IUnknown]

Destroy надо делать каждый раз после того как я уже использовал это значение?

Destroy надо делать тогда, когда значение больше не нужно. Чтоб не было утечек. То есть, при уменьшении размера Tab. Кстати, замени там цикл

for i := Low(tab) to High(tab) do

на While - негоже внутри цикла For уменьшать динамический массив, это тоже приведет к проблемам, при использовании For значение High(tab) на каждой итерации не пересчитывается, конечное значение вычисляется при входе в цикл, а внутри цикла оно может измениться - будет ошибка...

Нет идей почему теперь может писать invalid pointer operation ссылаясь на end в конце функции GiveValues?

Выход за пределы массива - как минимум. Ты ж идешь до High(init_points), так откуда у тебя будет init_points[i + 2]? Вот тебе и вылет программы.