hallo, die leaks teste ich wie angegeben 8auskommentiert)mit nem eigenen tester. Dieser beutzt
Delphi-Quellcode:
Function Ttester.MemoryUsed: Cardinal;
Var
St: TMemoryManagerState;
Sb: TSmallBlockTypeState;
Begin
GetMemoryManagerState(St);
Result := St.TotalAllocatedMediumBlockSize + St.TotalAllocatedLargeBlockSize;
For Sb In St.SmallBlockTypeStates Do
Begin
Result := Result + Sb.UseableBlockSize * Sb.AllocatedBlockCount;
End;
End;
zur bestimmung des Verbrauchs
Unit dazu im Anhang