Write and memory leak

Question

Could you help me solve this problem. Here is my code. I store (in this example) 10,000 lines, and when I try to delete them, only a certain amount of memory frees up the remaining leaks.

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

I do not see a leak in this code. How do you determine if a leak is occurring? Are you looking at the task manager? If so, then this is not a reliable way to detect memory leaks. The VCL memory manager does not release the freed memory back to the OS; it is cached for later reuse. Task Manager displays the allocated memory. He has no idea how this memory is actually controlled by applications.

Answer 2

, , .
, , - - , - (, ):

 ReportMemoryLeaksOnShutdown := True;

, - , , , .. .
.

, TaskManager , , -, , , , ; , .

, TaskManager ...

Answer 3

Windows . FastMM4 .

Answer 4

. , - , ? FastMM, , ?

, , . , , , Windows, . "", .

Answer 5

Dispose (TObject)

(MyData ^);

Answer 6

,     , ... ...  ,   Finalize, , FreeMem Dispose.

Answer 7

Try:

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