home *** CD-ROM | disk | FTP | other *** search
/ Shareware Overload / ShartewareOverload.cdr / progm / pascal2.zip / POINTERS.PAS < prev    next >
Pascal/Delphi Source File  |  1988-01-15  |  478b  |  22 lines

  1.                                 (* Chapter 12 - Program 3 *)
  2. program Pointer_Use_Example;
  3.  
  4. type Name  = string[20];
  5.  
  6. var  My_Name : ^Name; (* My_Name is a pointer to a string[20] *)
  7.      My_Age  : ^integer;  (* My_Age is a pointer to an integer *)
  8.  
  9. begin
  10.    New(My_Name);
  11.    New(My_Age);
  12.  
  13.    My_Name^ := 'John Q Doe';
  14.    My_Age^ := 27;
  15.  
  16.    Writeln('My name is ',My_Name^);
  17.    Writeln('My age is ',My_Age^:3);
  18.  
  19.    Dispose(My_Name);
  20.    Dispose(My_Age);
  21. end.
  22.