Взбесившийся указатель

← →
VDen (2002-06-12 20:17) [0]

Есть указатель - глобальный, в Initialization модуля он обnilяется,затем начинает указывать на какой-то объект.
После этого вызывается процедура, где этот указатель используется и программа намертво виснет.
Как выяснилось указатель при входе в процедуру просто уничтожается. Такого не было пока не расставил комментарии в тексте программы(прямо полтергейст какой-то). Объясните, пожалуйста, почему и отчего так происходит.

← →
Sasha9 © (2002-06-12 21:11) [1]

кусок кода, если можно

← →
Anatoly Podgoretsky © (2002-06-12 21:23) [2]

Страшные вещи ты рассказываешь

← →
YurijNT (2002-06-12 22:28) [3]

Бывают загадки природы и у Delphi. В таких случаях я выясняю на каком операторе виснет (вставляю тросировочные выводы) и делаю "пробуксовку" программе (Delay или Application.ProcessMessage).

Но в любом случае брось кусок кода - возможно ошибка.

← →
VDen (2002-06-13 09:47) [4]

function GetChain(num: integer): PTLogic;{это класс, на объект которого указывает BegL} var i: integer; p: PTLogic; //Дополнительный указатель begin P := BegL; //Здесь обнаруживаю, что BegL ни на что не указывает if num > EndL^.GetIndex then AViol("Main.pas, GetChain proc"); for i := 2 to num do p := p^.SimplePtr;// указатель на следующий элемент цепочки Result := p; end;
Вот код. Извините что только сегодня.

← →
Виктор Щербаков © (2002-06-13 09:52) [5]

Еще неплохо посмотреть на код, где:
> в Initialization модуля он обnilяется,затем начинает указывать
> на какой-то объект.

← →
VDen (2002-06-13 10:54) [6]

Function Createlogic: PTLogic;
begin
result:=TLogic.Create;
with result do begin
Name:="Log0";
Parent:=ViewForm;
SetBounds(25,25,30,30);
end;
end;

...

Initialization
BegL:=nil;
BegL:=CreateLogic;

← →
Игорь Шевченко © (2002-06-13 10:56) [7]

Ночной кошмар программиста :-)

Чудес не бывает !

Предже чем выяснять детали касаемые собственно вопроса, поясни-ка, что это за форма такая ViewForm, которая в момент работы блока инициализации (!) модуля уже существует ? Ты же ссылаешься на нее в строчке Parent:=ViewForm ! Или это вообще не форма, а несто иное ?

Где, статически ли и как объявлена переменная BegL ? Где, в какой момент и как вызывается GetChain() ?

> BegL:=nil;
> BegL:=CreateLogic;

Это на случай, если первой или второе присваивание не сработает ? :-)

Если BegL объявлена как статическая, то в строчке
BegL:=nil;
и необходимости-то нет.
А вот функцию Createlogic я б помучил отладчиком. Ну это для начала.

Взбесившийся указатель Найти похожие ветки