home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / turbopas / tptc17sc.arc / ITOA.INC < prev    next >
Encoding:
Text File  |  1988-03-25  |  306 b   |  24 lines
  1.  
  2. (*
  3.  * return the string equivelant of an integer value
  4.  *
  5.  *)
  6.  
  7. function itoa (int:  integer): string;
  8. var
  9.    tstr:  string;
  10. begin
  11.    str(int, tstr);
  12.    itoa := tstr;
  13. end;
  14.  
  15. function ltoa (int:  longint): string;
  16. var
  17.    tstr:  string;
  18. begin
  19.    str(int, tstr);
  20.    ltoa := tstr;
  21. end;
  22.  
  23.  
  24.