запись и утечка памяти

Question

Не могли бы вы помочь мне решить эту проблему. Вот мой код. Я храню (в этом примере) 10000 строк, и когда я пытаюсь удалить их, только некоторый объем памяти освобождает остальные утечки.

type 
    PMyData = ^TMyData; 
    TMyData = record 
    Name: string; 
end; 
//////// 

var 
XList:Tlist; 
////////// 

// Here is how I add// 
var 
MyData: PMyData; 
I:Integer; 
begin 
for I:=0 to 10000 do begin 
New(MyData); 
    MyData.Name:='Hello'; 
    XList.Add(TObject(MyData)); 
    end; 
end; 


///Here is how I delete/// 
var 
MyData: PMyData; 
I:Integer; 
begin 
for I:= XList.Count - 1 downto 0 do begin 
MyData:=PMyData (XList[I]); /// I also used (XList.Items[I]) but the result is the same 
    Dispose(MyData); 
    XList.Delete(I); 
end; 

Answer 1

Ваш код выглядит хорошо. Что именно вы имеете в виду, освобождается только какая-то память, а остальные утечки? Получаете ли вы отчеты о утечке памяти из FastMM, или вы просто не видите, что счетчик памяти в диспетчере задач полностью отступил?

Если вы не видите, что ваша программа возвращает всю память, это по дизайну. Он поддерживает некоторые из них, поэтому, если вы выделяете больше памяти, ему не нужно сразу запрашивать больше информации из Windows, что помогает повысить производительность. Память только «просочилась», если диспетчер памяти фактически не отменил ее.

Answer 2

Я не вижу утечки в этом коде. Как вы определяете, что происходит утечка? Вы смотрите на диспетчер задач? Если это так, то это не является надежным способом обнаружения утечек памяти. Диспетчер памяти VCL не освобождает освобожденную память обратно в ОС, она кэшируется для последующего повторного использования. Диспетчер задач отображает выделенную память. Он не имеет понятия о том, как эта память фактически управляется приложениями.

Answer 3

Диспетчер задач Windows не является надежной мерой использования памяти. Используйте диспетчер памяти FastMM4 с включенной проверкой утечки.

Answer 4

Насколько я могу судить, этот код не протекает, если вы эффективно выполняете очищающий код.
Единственный способ узнать, если ваш код утечки, попросив диспетчера памяти сообщать об утечках, добавив эту инструкцию где-то в коде (убедитесь, что он выполняется):

ReportMemoryLeaksOnShutdown := True; 

Менеджер памяти покажет, если любая из памяти, запрашиваемая вашим кодом, не освобождается, когда приложение завершается, т.е. у ВАШЕГО КОДА есть утечка.
После этого задание диспетчера памяти возвращает память ОС после завершения и делает это правильно.

Теперь о том, почему TaskManager сообщает, что больше памяти, по-видимому, не освобождается, когда число строк увеличивается, это связано с тем, что диспетчер памяти не освобождает все ранее запрошенную память до ОС, как только строки освобождаются, если это необходимо снова позже; чтобы избежать повторного запроса из ОС, он сохраняет его.

Как указано в других ответах, TaskManager не является хорошим инструментом, чтобы обнаружить утечки памяти ...

Answer 5

Вызов ниже функции перед Dispose или изменить запись в классе (TObject)

Доработка (MyData ^);

Приветствия

Answer 6

Anytime указатель записи содержит Variant Unbound массив, такие как ... массив ... строки, за исключением типа короткой строки интерфейса вам нужно вызвать финализац, чтобы освободить эти данные, прежде чем делать FreeMem или Dispose. В противном случае используйте класс лучше

Приветствия

Answer 7

Try:

FreeAndNil(XList.Items[I]); 
XList.Delete(I);