home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap15 / simpint / simpint.dpr next >
Text File  |  1995-03-20  |  555b  |  25 lines
  1. program SimpInt;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: SIMPINT}
  5.  
  6. { A simple example program showing how to allocate and
  7.   dispose memory for a pointer to an integer }
  8.  
  9.  
  10. uses
  11.   WinCrt; 
  12.  
  13. type
  14.   PInteger = ^Integer;
  15.  
  16. var
  17.   MyInteger: PInteger;
  18.  
  19. begin
  20.   New(MyInteger);        { Allocate 2 bytes for the Integer }
  21.   MyInteger^ := 25;      { Assign a value to the Integer    }
  22.   WriteLn(MyInteger^);   { Write the value to the screen    }
  23.   Dispose(MyInteger);    { Deallocate the memory            }
  24. end.
  25.