ReallocMem Позволяет изменить размер существующего блока памяти
Пример кода : Распределение памяти для записи, присвоение, и затем избавление от неё
type
TCustomer = Record
name : string[20];
age : Byte;
end;
var
custRecPtr : ^TCustomer;
begin // Создание записи клиента
используя 'New'
New(custRecptr); // Присвоение ему значений
custRecPtr.name := 'Her indoors';
custRecPtr.age := 55; // Теперь показываем эти значения
ShowMessageFmt('%s is %d',[custRecPtr.name, custRecPtr.age]); // Теперь избавляемся от этой
распределенной записи Dispose(custRecPtr);
end;
