GetHeapStatus, функция
Синтаксис
function GetHeapStatus: THeapStatus;
Описание
Функция GetHeapStatus возвращает запись, содержащую информацию о менеджере памяти
Delphi. Если установлен новый менеджер памяти, не использующий встроенный менеджер
памяти Delphi, все поля THeapStatus будут равны нулю. GetHeapStatus - это настоящая
функция.
Ошибки
Советы и приемы
Для того чтобы определить, установлен ли специальный менеджер памяти, вызовите
функцию IsMemoryManagerSet.
Если она возвращает True, данные, полученные с помощью GetHeapStatus, могут
быть некорректными.
Пример
procedure TForm1.Button1Click(Sender: TObject);
procedure AddFmt(const Fmt: string; Args: array of const);
begin
Memo1.Lines.Add(Format(Fmt, Args));
end;
var
Status: THeapStatus;
begin
Status := GetHeapStatus;
AddFmt('TotalAddrSpace = %d', [Status.TotalAddrSpace]);
AddFmt('TotalUncommitted = %d', [Status.TotalUncommitted]);
AddFmt('TotalCommitted = %d', [Status.TotalCommitted]);
AddFmt('TotalAllocated = %d', [Status.TotalAllocated]);
AddFmt('TotalFree =%d', [Status.TotalFree]);
AddFmt('FreeSmall =%d', [Status.FreeSmall]);
AddFmt('FreeBig = %d', [Status.FreeBig]);
AddFmt('Unused = %d', [Status.Unused]);
AddFmt('Overhead = %d', [Status.Overhead]);
AddFmt('HeapErrorCode = %d', [Status.HeapErrorCode]);
end;
Смотрите также
Функция IsMemoryManagerSet, процедура SetMemoryManager.Учебник по языку Pascal Лабораторные работы по программированию Справочник
Нет комментариев. Оставить комментарий: |