Delphi World - Получение размера памяти выделенный под Pointer
Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Получение размера памяти выделенный под Pointer

Автор: Мироводин Дмитрий
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Получение размера памяти выделенный под Pointer

Функция возврящает количество байт выделенных под Pointer.
Размер округляется в большую сторону до DWORD (4 байт).

Зависимости: Windows
Автор:       Мироводин Дмитрий, mirovodin@mail.ru
Copyright:   Мироводин Дмитрий
Дата:        16 октября 2003 г.
***************************************************** }

function GetPointerSize(const P: Pointer): Integer;
begin
  if P = nil then
    Result := -1
  else
    Result := Integer(Pointer((Integer(p) - 4))^) and $7FFFFFFC - 4;
end;

Пример использования:

var
  P: pointer;
  PSize: integer;
begin
  GetMem(P, 1024); // Размер кратен 4
  PSize := GetPointerSize(P);
  ShowMessage(inttostr(PSize)); // Результат 1024 байта
  FreeMem(P);
end;

...

var
  P: pointer;
  PSize: integer;
begin
  // Размер НЕ КРАТЕН 4
  GetMem(P, 6);
  PSize := GetPointerSize(P);
  // Результат 8 байта т.к. идет округление
  ShowMessage(inttostr(PSize));
  FreeMem(P);
end;
Проект Delphi World © Выпуск 2002 - 2017
Автор проекта: Эксклюзивные курсы программирования