ich habe ein kleines Problem mit der dem Freigeben von Speicher
Code: Alles auswählen
fHeap := GetHeapStatus;
fmemory:=fHeap.TotalAllocated;
Writeln('Heap : '+intTostr(fmemory)+' OLDMem : '+IntToStr(fOldMem)+' Mem: '+intTostr(fmemory-fOldMem));
fOldMem:=fHeap.TotalAllocated;
xml:= TXMLDocument.Create;
fHeap := GetHeapStatus;
fmemory:=fHeap.TotalAllocated;
Writeln('Heap : '+intTostr(fmemory)+' OLDMem : '+IntToStr(fOldMem)+' Mem: '+intTostr(fmemory-fOldMem));
fOldMem:=fHeap.TotalAllocated;
xml.Free;
fHeap := GetHeapStatus;
fmemory:=fHeap.TotalAllocated;
Writeln('Heap : '+intTostr(fmemory)+' OLDMem : '+IntToStr(fOldMem)+' Mem: '+intTostr(fmemory-fOldMem));
fOldMem:=fHeap.TotalAllocated;
aber nachdem ich es wider Freigegeben habe sollte doch der Speicher wieder gleich sein wie vor der Erzeugung des objekts?
Es wird aber nur 1344 byte freigegeben!
kann mir jemand sagen was ich da falsch mache ?
LG Jürgen