home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tp6goodi / error / bigtest.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-14  |  759 b   |  25 lines
  1. uses bigmem;
  2.  
  3. { ************************************
  4.   User Runtime Error Demo 1
  5.  
  6.     This program demonstrates how FRTE can be used.  This program uses a "unit"
  7.   which allocates heap space for a particular type of data struture.  When
  8.     a heap error occurs, rather than a runtime error ocurring in the unit
  9.     where the actual call to new() occurs, the error is shown to occur
  10.     where the program called the "unit's" routine that does memory allocation.
  11.     This allows user written "units" to be linked into Turbo's runtime
  12.     error support.
  13.   ************************************ }
  14.  
  15. var B:bigmemptr;
  16.         i:word;
  17. begin
  18.   InUnit := false;
  19.     for i:=1 to 100 do
  20.     begin
  21.     { This is the call that causes problem }
  22.     get_bigmem(B);
  23.     end;
  24. end.
  25.