home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_INC.ZIP / ITOA1.INC < prev    next >
Encoding:
Text File  |  1988-01-29  |  426 b   |  31 lines
  1.  
  2. (*
  3.  * return the string equivelant of an integer value
  4.  *
  5.  *)
  6.  
  7. function itoa (int: integer): anystring;
  8. var
  9.    tstr: anystring;
  10. begin
  11.    str(int, tstr);
  12.    itoa := tstr;
  13. end;
  14.  
  15. function ltoa (int: longint): anystring;
  16. var
  17.    tstr: anystring;
  18. begin
  19.    str(int, tstr);
  20.    ltoa := tstr;
  21. end;
  22.  
  23. function wtoa (w: word): anystring;
  24. var
  25.    tstr: anystring;
  26. begin
  27.    str(w, tstr);
  28.    wtoa := tstr;
  29. end;
  30.  
  31.