Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Получение размера памяти выделенный под Pointer

Delphi , Синтаксис , Память и Указатели

Получение размера памяти выделенный под 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;

Статья Получение размера памяти выделенный под Pointer раздела Синтаксис Память и Указатели может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Память и Указатели ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
27.02.2020 04:20:20/0.012310028076172/2