home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / chap16 / pointer5 / pointr5a.dpr < prev    next >
Encoding:
Text File  |  1995-03-21  |  580 b   |  38 lines
  1. program Pointr5a;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: POINTER5 }
  5.  
  6. { Same as POINTER5, but with comments taken out. }
  7.  
  8. {$ifdef Windows}
  9. uses
  10.   SysUtils;
  11. {$else}
  12. uses
  13.   Strings;
  14. {$endif}
  15.  
  16. var
  17.   A: Pointer;
  18.   B: PChar;
  19. begin
  20.   HeapLimit := 0;
  21.   A := Ptr(DSeg, 0);
  22.   B := Ptr(DSeg, 16);
  23.   A := nil;
  24.   B := nil;
  25.   New(A);
  26.   Dispose(A);
  27.   GetMem(A, 100);
  28.   GetMem(B, 100);
  29.   StrCopy(B, 'Test data');
  30.   FreeMem(A, 100);
  31.   A := nil;
  32.   FreeMem(B, 100);
  33.   asm
  34.     mov word ptr B, 0;
  35.     mov word ptr B + 2, 0;
  36.   end;
  37. end.
  38.