Сборщик мусора в памяти ?

← →
Alx2 (2002-03-27 14:05) [1]

По поводу занятой памяти: попробуй повесить это на таймер, а Edit1 - на видное место :)
Потом погоняй проблемное место. IMHO, методом последовательный приближений можно найти.

Function haircut(Const S: String): String;
Var K, L: Integer;
Begin
Result := "";
L := 1;
For K := Length(S) Downto 1 Do
Begin
Result := S[K] + Result;
If L Mod 3 = 0 Then Result := " " + Result;
Inc(L);
End;
End;

Var K: Integer;
MemInfo: TMemoryStatus;
Begin
MemInfo.dwLength := Sizeof(MemInfo);
GlobalMemoryStatus(MemInfo);
Edit1.Text := "Занято:" +haircut(IntToStr(AllocMemSize)) +
" (" + haircut(IntToStr(MemInfo.dwAvailPageFile Div 1024)) + "Kb) ";
End;

Сборщик мусора в памяти ? Найти похожие ветки