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

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

Либо чудо, либо фокус... [D7, XP]

Страницы:   < 1 2 >

Unknowing ©   (2008-03-18 09:28:00) 

Всем привет! Сталкнулся с такой проблемой: при закрытии программы в которой вызывается нижеописанная процедура возникает ошибка RunTimeError 216 at ..... Но ошибки не возникает если раскомментировать указанную строку(выделена жирным). В чем тут дело?
procedure TForm1.MakeCoordHdgMarks(Xcenter,Ycenter, R : integer);
var
cs,sn,cs2,sn2 : Single;
Count: Word;
begin
 Count:=0;
  while Count<360 do
    begin
       cs := Xcenter+(R/2)*cos(Count*pi/180);
       sn := Ycenter+(R/2)*sin(Count*pi/180);  

       if frac(Count/30) = 0 then
        begin
       
          cs2 := Xcenter+(10+R/2)*cos(Count*pi/180);
          sn2 := Ycenter+(10+R/2)*sin(Count*pi/180);
        end
       else
        begin
          cs2 := Xcenter+(7+R/2)*cos(Count*pi/180);  //
          sn2 := Ycenter+(7+R/2)*sin(Count*pi/180);  //
        end;

     HdgCoord[Count].X0:= cs;
     HdgCoord[Count].Y0:= sn;

     HdgCoord[Count].X1:= cs2;
     HdgCoord[Count].Y1:= sn2;

     Inc(Count,10);

    end; //while

// showmessage(inttostr(Count)); <--------------------------------
end;

---

Сергей М.   (2008-03-18 09:49:00) [21]

> Короче, сабж


Короче парься сам, если не желаешь показывать все"тайны" своего проекта.

---

Unknowing   (2008-03-18 09:47:00) [22]

> Сергей М. ©   (18.03.08 09:44) [8]

:) Забыл, забыл!
Короче, сабж...

---

Сергей М.   (2008-03-18 09:44:00) [23]

> Все остальное закоментировал для разбора проблемы с RunTimeError


Кнопку забыл "закомментировать")

---

Unknowing   (2008-03-18 09:43:00) [24]

> Сергей М. ©   (18.03.08 09:41) [5]

Все остальное закоментировал для разбора проблемы с RunTimeError.
Я не пойму при наличии  showmessage(inttostr(Count)); ошибки не возникает

---

Unknowing   (2008-03-18 09:41:00) [25]

> Johnmen ©   (18.03.08 09:40) [4]

:)

---

Сергей М.   (2008-03-18 09:41:00) [26]

> Unknowing ©   (18.03.08 09:38) [3]


Это тебе только кажется, что "больше ничего не производится"
А если и не "производится", то зачем тогда все эти хитроумные манипуляции с массивом HdgCoord ?

---

Johnmen   (2008-03-18 09:40:00) [27]

Лучше сразу бы сказал, что вызывается MySuperPuperFunction, сразу стало бы всё ясно...

---

Unknowing   (2008-03-18 09:38:00) [28]

В программе по нажатию кнопки вызывается MakeCoordHdgMarks, больше ничего не производится...

---

Johnmen   (2008-03-18 09:35:00) [29]

Данная ошибка возникает при попытках обратиться по несуществующему адресу, при разрушении уже разрушенного объекта.
Поэтому она не там, где ты думаешь...

---

Сергей М.   (2008-03-18 09:32:00) [30]

Ошибка за пределами этого кода

---

Страницы:   < 1 2 >

Наверх