home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / htscreen / htstring.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1990-12-18  |  867 b   |  52 lines
  1. UNIT HtString;
  2.  
  3. INTERFACE
  4.  
  5. FUNCTION StrL(L : LONGINT) : STRING;
  6. FUNCTION StrLF(L : LONGINT;   Field : BYTE) : STRING;
  7. FUNCTION StrR(R : REAL) : STRING;
  8. FUNCTION StrRF(R : REAL;  Field : BYTE) : STRING;
  9. FUNCTION StrRFD(R : REAL;  Field,Decimal : BYTE) : STRING;
  10.  
  11. IMPLEMENTATION
  12.  
  13. FUNCTION StrL(L : LONGINT) : STRING;
  14. VAR S : STRING;
  15. BEGIN
  16.   Str(L,S);
  17.   StrL := S;
  18. END;
  19.  
  20.  
  21. FUNCTION StrLF(L : LONGINT;   Field : BYTE) : STRING;
  22. VAR S : STRING;
  23. BEGIN
  24.   Str(L:Field,S);
  25.   StrLF := S;
  26. END;
  27.  
  28.  
  29. FUNCTION StrR(R : REAL) : STRING;
  30. VAR S : STRING;
  31. BEGIN
  32.   Str(R,S);
  33.   StrR := S;
  34. END;
  35.  
  36.  
  37. FUNCTION StrRF(R : REAL;  Field : BYTE) : STRING;
  38. VAR S : STRING;
  39. BEGIN
  40.   Str(R:Field,S);
  41.   StrRF := S;
  42. END;
  43.  
  44.  
  45. FUNCTION StrRFD(R : REAL;  Field,Decimal : BYTE) : STRING;
  46. VAR S : STRING;
  47. BEGIN
  48.   Str(R:Field:Decimal,S);
  49.   StrRFD := S;
  50. END;
  51.  
  52. END.