Dispose of storage used by a pointer type variable System unit
1 procedure Dispose(var VariablePointer Pointer-Type);
2 procedure Dispose (var ObjectPointer Object-Pointer; Destructor;
The Dispose procedure comes in two flavours.
The older version is an obsolete method of destroying objects (you should now call the class destructor instead).
The first version frees storage used by a pointer type variable VariablePointer.
You should use Dispose when no longer using a variable allocated using New.
Warning : the variable is undefined after calling Dispose. It is not set to nil.
Related commands
FreeMemFree memory storage used by a variable
GetMemGet a specified number of storage bytes
NewCreate a new pointer type variable
ReallocMemReallocate an existing block of storage
 Download this web site as a Windows program.

Example code : Allocate memory for a record, assign to it, and then dispose of it
  TCustomer = Record
    name : string[20];
    age  : Byte;

  custRecPtr : ^TCustomer;

  // Create a customer record using 'New'

  // Assign values to it := 'Her indoors';
  custRecPtr.age  := 55;

  // Now display these values
  ShowMessageFmt('%s is %d',[, custRecPtr.age]);

  // Now dispose of this allocated record
Show full unit code
  Her indoors is 55
Delphi Programming © Neil Moffatt . All rights reserved.  |  Home Page