Архив форумов ЦИТФорума

[IMurad]

Привожу отрывок кода в Delphi6:
...
Y1 : array [1..4] of extended;
nY1 : integer;
Y2 : array [1..3] of extended;
nY2 : integer;
nInterval : integer;
...
nY2 := 0;
for i := 1 to nY1-1 do
if ((Round(Y1[i]) > Yini_IF) and (Y1[i] < Yini_IF + (36000 - Hini_IF)/p)) then begin
nY2:=nY2+1;
Y2[nY2] := Y1[i];
end;
if ((Round(Y1[nY1]) > Yini_IF) and (Y1[nY1] <= Yini_IF + (36000 - Hini_IF)/p)) then begin
nY2:=nY2+1;
Y2[nY2] := Y1[nY1];
end
else if (Y1[nY1] > Yini_IF + (36000 - Hini_IF)/p) then begin
nY2:=nY2+1;
Y2[nY2] := Yini_IF + (36000 - Hini_IF)/p;
end;
nInterval := nY2;

Данные такие что,
nY1 = 4;
в каждой итерации цикла условие выполняется;
нижеследующее условие также имеет значение True.

Вроде nY2 должна быть равна 4.
Но нет, переменная nInterval принимает непонятное значение 41765884.
Что за фигня, Господа? Подскажите, пожалуйста, как избежать это?

[Ersh]

Уловия не выполняються, и ny2 одержит именно то, что ты написал, а так как она не инициализированно, то в ней такое число. Проиницилизируй ny2 с самого начала(ny2:=0) и получишь в nInterval оже 0.
_________________
Анархия - мать порядка!!!!!!!!!

[cerber]

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

[IMurad]

Неужели не заметно, что я инициализирую ny2

[совсем незнакомый]

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