[ДмитрийС]

Всех с Новым годом!

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

В самих процедурах/функциях нет ничего особенного.
Например:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

function SearchNearPoint(x_,y_,frame_: integer): integer; var i_,p1x_,p2x_,p3x_,p1y_,p2y_,p3y_: integer;     flag_: boolean; begin     Result := -1;     flag_ := false;     if (frame_ = 1) then begin         <b>for i_ := 0 to High(ATriangle1) do begin</b>             flag_ := CheckPointInsideTriangle2(APoint1[ATriangle1[i_].p1].x, APoint1[ATriangle1[i_].p1].y,                                                APoint1[ATriangle1[i_].p2].x, APoint1[ATriangle1[i_].p2].y,                                                APoint1[ATriangle1[i_].p3].x, APoint1[ATriangle1[i_].p3].y,                                                x_,y_);         <b>end;</b>      end;    ..... end;

Подобного рода процедур у меня много и чаще всего все в порядке - переменная цикла i_ идет от 0 до до High(массив). Но иногда отсчет по непонятной причине идет в обратную сторону от максимального индекса до 0, как если бы это был for i_ := High(массив) downto 0 do begin.

Если, например, в примере выше поменять переменную i_ на любую другую переменную, то проблема останется.

Код:

1 2 3 4 5 6 7 8

Но если сделать вот так:         <b>for z_ := 0 to High(ATriangle1) do begin</b>             <b><font color="Red">i_ := z_;</font></b>             flag_ := CheckPointInsideTriangle2(APoint1[ATriangle1[i_].p1].x, APoint1[ATriangle1[i_].p1].y,                                                APoint1[ATriangle1[i_].p2].x, APoint1[ATriangle1[i_].p2].y,                                                APoint1[ATriangle1[i_].p3].x, APoint1[ATriangle1[i_].p3].y,                                                x_,y_);         <b>end;</b>

Админ: Пользуемся тегами при оформлении кода!

то все работает как надо.

Кто с таким сталкивался? В чем может быть проблема?