Assigned & Dispose. Что не так?

← →
Cosinus © (2004-12-21 12:20) [0]

if Assigned(Add_lb.Items.Objects[Add_lb.Items.Count-1]) then Dispose(Add_lb.Items.Objects[Add_lb.Items.Count-1]); Почему то не работает... Не подскажите, почему?

← →
PVOzerski © (2004-12-21 12:25) [1]

1) кабы знать еще тип Add_lb.Items.Objects[Add_lb.Items.Count-1]...
2) В любом случае: dispose не делает значения указателя на высвобожденную область памяти равным nil, а assigned именно на равность nil и проверяет. Отсюда делай вывод.

← →
begin...end © (2004-12-21 12:26) [2]

> Cosinus © (21.12.04 12:20)

Add_lb - это ListBox ?

Объекты уничтожаются с помощью деструктора, метода Free или процедуры FreeAndNIL.

← →
Суслик © (2004-12-21 12:42) [3]

> Почему то не работает... Не подскажите, почему?

А что должно быть?
Если имеется в виду освобождения памяти, то нужно делать так
dispose(PYouType(Obj)), т.к. приводить к типу данных, на который указывает указатель

← →
Cosinus © (2004-12-21 13:15) [4]

I>
> begin...end © (21.12.04 12:26) [2]

Да, это ListBox.

> Суслик © (21.12.04 12:42) [3]

Да, я хотел избежать утечек памяти. В итоге сделал так...
if Assigned(Add_lb.Items.Objects[Add_lb.Items.Count-1]) then Add_lb.Items.Objects[Add_lb.Items.Count-1].Free;
Всем спасибо.

Лучше б ты FreeAndNil сделал...

правильный код такой
Add_lb.Items.Objects[Add_lb.Items.Count-1].Free; Add_lb.Items.Objects[Add_lb.Items.Count-1]:=Nil;

Assigned &amp; Dispose. Что не так? Найти похожие ветки

Assigned & Dispose. Что не так? Найти похожие ветки