Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  3 915

•  TDictionary Custom Sort  6 019

•  Fast Watermark Sources  5 805

•  3D Designer  8 620

•  Sik Screen Capture  6 144

•  Patch Maker  6 582

•  Айболит (remote control)  6 570

•  ListBox Drag & Drop  5 428

•  Доска для игры Реверси  95 325

•  Графические эффекты  6 781

•  Рисование по маске  5 946

•  Перетаскивание изображений  4 950

•  Canvas Drawing  5 327

•  Рисование Луны  5 053

•  Поворот изображения  4 595

•  Рисование стержней  3 254

•  Paint on Shape  2 494

•  Генератор кроссвордов  3 380

•  Головоломка Paletto  2 692

•  Теорема Монжа об окружностях  3 469

•  Пазл Numbrix  2 289

•  Заборы и коммивояжеры  2 971

•  Игра HIP  1 938

•  Игра Go (Го)  1 854

•  Симулятор лифта  2 191

•  Программа укладки плитки  1 919

•  Генератор лабиринта  2 362

•  Проверка числового ввода  2 047

•  HEX View  2 367

•  Физический маятник  2 003

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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



Автор: Мироводин Дмитрий

{ **** 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;




Похожие по теме исходники

Драйвер клавиатуры под DOS




Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте