home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / FTOA.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  189 b   |  16 lines
  1.  
  2. (*
  3.  * convert floating to ascii
  4.  *
  5.  *)
  6.  
  7. function ftoa(f: real; width,dec: integer): anystring;
  8. var
  9.    buf: anystring;
  10. begin
  11.    str(f:width:dec,buf);
  12.    ftoa := buf;
  13. end;
  14.  
  15.  
  16.