home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Power Programming
/
powerprogramming1994.iso
/
progtool
/
turbopas
/
tptc17sc.arc
/
FTOA.INC
< prev
next >
Wrap
Text File
|
1988-03-25
|
189b
|
16 lines
(*
* convert floating to ascii
*
*)
function ftoa(f: real; width,dec: integer): anystring;
var
buf: anystring;
begin
str(f:width:dec,buf);
ftoa := buf;
end;