home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / arrays / generics / flxarray / flexpntr.pas next >
Encoding:
Pascal/Delphi Source File  |  1989-07-23  |  525 b   |  28 lines
  1. Unit FlexPntr;
  2.  
  3. {Acknowledgements to Tom Swann of Programmers Journal}
  4.  
  5. INTERFACE
  6.  
  7. Type
  8.   FlexCount = Word;
  9.   FlexSpace = Array[0..0] of Byte;
  10.   FlexPtr   = ^FlxArray;
  11.   FlxArray  = Record
  12.                 NumBytes : FlexCount;
  13.                 Flex     : FlexSpace
  14.               End;
  15.  
  16.   Function HeapErrorTrap (Size : Word) : Integer;
  17.  
  18. IMPLEMENTATION
  19.  
  20. {$F+}
  21. Function HeapErrorTrap (Size : Word) : Integer;
  22. Begin
  23.   HeapErrorTrap := 1  { New and GetMem return Nil if out_of_memory }
  24. End;
  25. {$F-}
  26.  
  27. END.
  28.