home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / ATOF.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  293 b   |  20 lines
  1.  
  2. (*
  3.  *
  4.  * converts ascii string to an float value
  5.  *
  6.  *)
  7.  
  8. function atof (asc:           anystring): real;
  9. var
  10.    code:          integer;
  11.    value:         real;
  12.  
  13. begin
  14.    while copy(asc,1,1) = ' ' do
  15.       delete(asc,1,1);
  16.    val(asc, value, code);
  17.    atof := value;
  18. end;
  19.  
  20.