Динамическая память

[PaulSev]

Столкнулся с такой проблемой, не пойму в чем дело.

var  q:^integer;
begin
  new(q);
  q^:=5;
  dispose(q);
  Label1.Caption:=inttostr(q^);
end;

Почему после высвобождения памяти остается значение переменной (в данном случае на экране будет 5)?

[Utkin]

Почему Вы собственно решили что это проблема?
И в переменной остается не 5, а адрес ячейки где это число хранится. А это большая разница. Память высвобождается в том смысле, что ее можно использовать повторно, речь об инициализации выделенной памяти не идет. Освобожденный блок памяти считается свободным, но информацию оттуда надо удалять вручную (если надо).

[PaulSev]

Получается что я очищаю динамическую переменную, а она остается. А потом может быть этот блок памяти может быть использован для других целей? И как я теперь должен избавиться от этой 5?

Будет ли высвобождена память в этом случае

new(q);
q^:=5;
q:=nil

или нужно написать так

new(q);
q^:=5;
s:=q;
q:=nil;
dispose(s);

[Utkin]

Сообщение от PaulSev

Получается что я очищаю динамическую переменную, а она остается. А потом может быть этот блок памяти может быть использован для других целей? И как я теперь должен избавиться от этой 5?

Вы ее не очищаете. Вы разрешаете использовать данный участок для других целей и все. Это значит, что если Вы выделите новый участок памяти, то есть вероятность, что это он же и окажется .
А зачем Вам избавляться от 5-ки? Можете сделать две вещи:
а) изменить указатель q:=nil;
б) изменить значение ячейки q^:=0; (до Dispose)

[PaulSev]

я должен избавиться от последнего элемента однонаправленного списка, как будет правильно
так

new(q);
q^:=5;
.....
q:=nil

или так

new(q);
q^:=5;
......
s:=q;
q:=nil;
dispose(s);

[Utkin]

Первый вариант, ИМХО.

ЗЫ. Для всяких там списков и стеков я использую динамические массивы и никогда не парюсь с указателями . По сути тоже самое, но мне не надо следить за тем, кому и чего выделять и высвобождать. И главное правило при таких играх - перед использованием и высвобождением память всегда инициализируется (присваивается начальное значение, допустим нуль).

[Stilet]

я должен избавиться от последнего элемента однонаправленного списка

Правильно будет обратить последний элемент в nil, (и обNILить в предпоследнем указатель на последний, если ты таковой пользуешь)
т.е. вариант Уткина №А

[PaulSev]

Если я последний указатель сделаю nil, тогда блок памяти на который раньше ссылался этот указатель останется не освобожденным, так как теперь этот указатель просто не будет никуда ссылаться. Поэтому если q - последний указатель, то будет ли корректно реализована очистка

......
s:=q;
q:=nil;
dispose(s);

[Utkin]

Закинь ты свой вариант с промежуточной переменной. Мне кажется ты уже давно решил для себя как поступишь, а не спрашиваешь совета.

var  q:^integer;
begin
  new(q);
  q^:=5;
  dispose(q);
  q:=nil;
  Label1.Caption:=inttostr(q^);
end;

[PaulSev]

Просто я хочу разобраться что все таки происходит в результате подобных действий в подробностях. Если бы мне просто нужно было решение я бы и не заморачивался. Мне нужно глубокое понимание данного вопроса.