Как правильно освободить память
Добрый вечер. Ранее затрагивал вопрос о том, как правильно освободить память занимаемую объектом. Советы не подействовали, хотя, может я чего то и недопонимаю, подскажите. Код класса TNObject содержится во вложении. Текс программы следующий:
Par.Host := 'localhost';
Par.Port := 1067;
Par.AOwner := Self;
for i := 1 to ParcelCount - 1 do
Begin
Obj := TNObject.Create(Par,Parcel[i]);
//Действия с объектом Obj
Obj.Destroy;
End;
Если ParcelCount принимает большое значение, память уходит катастрофически. Как быть?
|