[Back to POINTERS SWAG index]  [Back to Main SWAG index]  [Original]

Program Test_Pointers;

Type
  Array_Pointer = ^MyArray;
  MyArray = Array[1..10] of String;

Var
  MyVar : Array_Pointer;

begin
  Writeln('Memory beFore initializing Variable : ',MemAvail);

  New(MyVar);

  Writeln('Memory after initializiation : ',MemAvail);

  MyVar^[1] := 'Hello';
  MyVar^[2] := 'World!';

  Writeln(MyVar^[1], ' ', MyVar^[2]);

  Dispose(MyVar);

  Writeln('Memory after Variable memory released : ',MemAvail);
end.

[Back to POINTERS SWAG index]  [Back to Main SWAG index]  [Original]