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          Лабораторные работы по программированию          Справочник




Нет комментариев.



Оставить комментарий:
Ваше Имя:
Email:
Антибот: *  
Ваш комментарий: