Описание:
Delphi процедура Dispose освобождает
область памяти, выделенную ранее процедурой New, на которую указывает указатель
Pointer.
Пример кода:
type
TCustomer = Record
name : string[20];
age : Byte;
end;
var
custRecPtr :
^TCustomer;
begin
// Create a customer record using
'New'
New(custRecptr);
// Assign values to
it
custRecPtr.name := 'Her indoors';
custRecPtr.age := 55;
// Now display these values
ShowMessageFmt('%s is %d',[custRecPtr.name, custRecPtr.age]);
// Now dispose of this allocated record
Dispose(custRecPtr);
end;