home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 19 / CD_ASCQ_19_010295.iso / dos / prg / pas / ktools / source / umem.pas < prev    next >
Pascal/Delphi Source File  |  1994-05-24  |  624b  |  39 lines
  1. Unit UMem;
  2. { gestion de la mémoire }
  3. { KB avril 1994 }
  4.  
  5. INTERFACE
  6.  
  7. Var oldmem:LongInt;
  8.  
  9. Procedure InitMem;
  10. Procedure DiagMem;
  11.  
  12. IMPLEMENTATION
  13.  
  14. Function FonctionTas(size: word): integer; far;
  15. Begin
  16.  if size > 0
  17.     then FonctionTas:= 1
  18. End;
  19.  
  20. Procedure InitMem;
  21. Begin
  22.  oldmem:=memavail;
  23. End;
  24.  
  25. Procedure DiagMem;
  26. Begin
  27.  writeln;
  28.  writeln('Mémoire dispo au début : ',oldmem);
  29.  writeln('Mémoire dispo à la fin : ',memavail);
  30.  write('Appuyer sur Entrée...');
  31.  readln;
  32. End;
  33.  
  34. BEGIN
  35.  HeapError := @FonctionTas;
  36. END.
  37.  
  38. {                           Fin du fichier UMem.Pas                         }
  39.