home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / crosscom / tptc / source / ftoa.inc < prev    next >
Encoding:
Text File  |  1988-03-25  |  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.