Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Не проходит Breakpoint [D7]


wsih ©   (2006-05-26 04:29:00) 

Здравствуйте! Подскажите мне, кого глючит - меня, тупоглавого али коня моего?

Function Xcorr(x1,x2:integer):integer ;
 var temp:integer;
 begin
  temp:=Round((((x2-x1)*-1)/2)+(obj.canvas.TextWidth('A')/2));
  Result:=temp;
 end;

Функция объявлена в процедуре.
строка Result:=temp; - не выпонняется и в DesignTime после запуска брекпоинт в виде  кружка с крестиком и полоска такого гаденького цвета ))


wsih   (2006-05-26 19:51:00) [1]

Function Xcorr(x1,x2:integer):integer ;
 begin
     Result:=Round((((x2-x1)*-1)/2)+(obj.canvas.TextWidth('A')/2));
 end;

- так - работает, хотя вчера - неработало (потому и пытался присвоить через temp)/ Хотя утверждать не могу - было уже утро и кофе закончился...
А почему с temp - неработает так до сих пор не понял... :(


Desdechado   (2006-05-26 11:18:00) [2]

temp можешь выкинуть, присваивать сразу result


han_malign   (2006-05-26 10:03:00) [3]

TUser ©
- кода достаточно, при оптимизации все сводится к вичислению выражения в Round() и call Round(точнее inline вставка) - результат в EAX - копирование в стековый temp бессмысленно...


TUser   (2006-05-26 04:41:00) [4]

Выкинуто оптимизатором. Приведи полностью код.


Наверх

Титульная страница Поиск, карта сайта Написать письмо