Увеличение значения указателя

Материал из DRKB

Увеличение значения указателя[править | править код]

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Увеличение значения указателя

Конвертирует указатель в Cardinal, увеличиваем значение адреса,
и конвертирует обратно в указатель, который и возвращает.
Внимание, функция не выделяет никаких блоков памяти,
она просто работает с указателем.

Зависимости: System
Автор:       Григорий Ситнин, gregor@gregor.ru, Москва
Copyright:   Григорий Ситнин, 2003
Дата:        8 июля 2003 г.
***************************************************** }

function IncPtr(APointer: pointer; AHowMuch: cardinal = 1): pointer;
begin
  //*** Конвертируем указатель в Cardinal, увеличиваем значение адреса,
  //*** и конвертируем обратно в указатель, который и возвращаем.
  //**! Внимание, функция не выделяет никаких блоков памяти,
  //**! она просто работает с указателем.
  Result := Ptr(cardinal(APointer) + AHowMuch);
end;
Пример использования: 

{$APPTYPE CONSOLE}
program testptr;
uses SysUtils, uIncPtr; //*** Модуль uIncPtr содержит функцию IncPtr
var
  ptr1, ptr2: pointer;
begin
  ptr1 := AllocMem(255);
  ptr2 := incptr(ptr1, 10);
  writeln('ptr1 : ', cardinal(ptr1));
  //*** Напечатать увеличенный на 10 указатель ptr1
  writeln('ptr2 (+10): ', cardinal(ptr2));
  FreeMem(ptr1, 255)
end.


Source: http://delphibase.endimus.com
ID: 00832