home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_02_01 / 2n01046a < prev    next >
Text File  |  1990-11-14  |  211b  |  15 lines
  1.  
  2.  
  3.  
  4. {*
  5.  * return true if c is a digit; otherwise return false.
  6.  *}
  7. function isdigit(c : char) : boolean;
  8.     begin
  9.     if ('0' <= c) and (c <= '9') then
  10.         isdigit := true
  11.     else
  12.         isdigit := false;
  13.     end;
  14.  
  15.