Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2007.05.27;
Скачать: CL | DM;

Вниз

watches выдает не то что должно быть по коду   Найти похожие ветки 

 
KOSik ©   (2007-03-31 14:43) [0]

Доброго времени суток.
Уж я не знаю, то ли что-то со мной, то ли что-то Delphi оптимизирует при компиляции, но в следующем коде:


function  FindCommonEndPoint(c1, c2 :TCurve):TPoint;
var
 LoopAr1, LoopAr2 :array [0..1] of integer;
 i, j :integer;
begin
 if HaveCommonEndPoint(c1, c2) then begin
   LoopAr1[0] := 0;
   LoopAr1[1] := High(c1.ps);
   LoopAr2[0] := 0;
   LoopAr2[1] := High(c2.ps);
   for i := 0 to High(LoopAr1) do begin
     for j := 0 to High(LoopAr2) do begin
       if SamePointFloat(c2.ps[LoopAr1[i]],  c2.ps[LoopAr2[j]]) then begin
         Result := Point(LoopAr1[i], LoopAr2[j]);
         Exit;
         end;
       end;
     end;    
   end
 else
   Result := Point(-1, -1);
 end;
,

где

 TPointFloat = record
   x, y :calc;
   end;
 TCurve = record
   ps    :array of TPointFloat;
   Group :integer;
   end;


Здесь в цикле watches выдает i=2 и j=2. С чем это может быть связано?


 
Loginov Dmitry ©   (2007-03-31 14:50) [1]

Работает правильно? Тогда забей!


 
KOSik ©   (2007-03-31 14:54) [2]


> Loginov Dmitry ©   (31.03.07 14:50) [1]

работает правильно. просто отладкой заниматься сложновато, когда watches выдает не те числа. а с чем это может быть связано? мне просто интересно.


 
DrPass ©   (2007-03-31 17:05) [3]


> то ли что-то Delphi оптимизирует при компиляции

По умолчанию "что-то оптимизирует", причем значительно. Оптимизацию нужно выключать во время отладки, это делается в опциях компилятора


 
vl_chel ©   (2007-04-02 11:29) [4]

High(LoopAr1) - Не вижу смысла
А попробуй все значения вывести на экран, в т.ч. и границы цыкла



Страницы: 1 вся ветка

Текущий архив: 2007.05.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1178779871
Zubarev
2007-05-10 10:51
2007.05.27
DBGrid


11-1160134748
Thaddy
2006-10-06 15:39
2007.05.27
tip to reduce memory when inactive.


15-1177630671
SerJaNT
2007-04-27 03:37
2007.05.27
.htaccess


3-1173777363
Bk
2007-03-13 12:16
2007.05.27
FIBPlus - выдать список таблиц из БД


3-1173274618
Mr. D.
2007-03-07 16:36
2007.05.27
Ведение логов изменения некоторой величины