V. ФУНКЦИИ И ПРОЦЕДУРЫ ДЛЯ РАБОТЫ С ПАМЯТЬЮ

1. Функции и процедуры для работы с памятью и указателями

Процедура GetMemoryManager (
var MemMgr: TMemoryManager );

Модуль: System

type TMemoryManager = record
GetMem: function( Size: Integer): Pointer;
FreeMem: function( P: Pointer): Integer;
ReallocMem: function( P: Pointer; Size: Integer): Pointer;
end;

Описание
Процедура возвращает указатели на поля диспетчера памяти, установленного в текущий момент.

Пример
var

GetMemCount: Integer;
FreeMemCount: Integer;
ReallocMemCount: Integer;
OldMemMngr: TMemoryManager;

function NewGetMem(Size: Integer): Pointer;
begin

Inc(GetMemCount);
Result:= OldMemMngr.GetMem(Size);

end;

function NewFreeMem(P: Pointer): Integer;
begin

Inc(FreeMemCount);
Result:= OldMemMngr.FreeMem(P);

end;

function NewReallocMem(P: Pointer; Size: Integer): Pointer;
begin

Inc(ReallocMemCount);

Result:= OldMemMngr.ReallocMem(P, Size);

end;

const

NewMemMgr: TMemoryManager = ( GetMem: NewGetMem;
FreeMem: NewFreeMem; ReallocMem: NewReallocMem );

procedure SetNewMemMgr;
begin

GetMemoryManager(OldMemMngr);
SetMemoryManager(NewMemMngr);

end;

[Вернуться к содержанию]