[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]