home *** CD-ROM | disk | FTP | other *** search
/ POINT Software Programming / PPROG1.ISO / pascal / swag / pointers.swg / 0006_PTR-MEM.PAS.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-05-28  |  467 b   |  26 lines
  1. Program Test_Pointers;
  2.  
  3. Type
  4.   Array_Pointer = ^MyArray;
  5.   MyArray = Array[1..10] of String;
  6.  
  7. Var
  8.   MyVar : Array_Pointer;
  9.  
  10. begin
  11.   Writeln('Memory beFore initializing Variable : ',MemAvail);
  12.  
  13.   New(MyVar);
  14.  
  15.   Writeln('Memory after initializiation : ',MemAvail);
  16.  
  17.   MyVar^[1] := 'Hello';
  18.   MyVar^[2] := 'World!';
  19.  
  20.   Writeln(MyVar^[1], ' ', MyVar^[2]);
  21.  
  22.   Dispose(MyVar);
  23.  
  24.   Writeln('Memory after Variable memory released : ',MemAvail);
  25. end.
  26.