home *** CD-ROM | disk | FTP | other *** search
- UNIT HtString;
-
- INTERFACE
-
- FUNCTION StrL(L : LONGINT) : STRING;
- FUNCTION StrLF(L : LONGINT; Field : BYTE) : STRING;
- FUNCTION StrR(R : REAL) : STRING;
- FUNCTION StrRF(R : REAL; Field : BYTE) : STRING;
- FUNCTION StrRFD(R : REAL; Field,Decimal : BYTE) : STRING;
-
- IMPLEMENTATION
-
- FUNCTION StrL(L : LONGINT) : STRING;
- VAR S : STRING;
- BEGIN
- Str(L,S);
- StrL := S;
- END;
-
-
- FUNCTION StrLF(L : LONGINT; Field : BYTE) : STRING;
- VAR S : STRING;
- BEGIN
- Str(L:Field,S);
- StrLF := S;
- END;
-
-
- FUNCTION StrR(R : REAL) : STRING;
- VAR S : STRING;
- BEGIN
- Str(R,S);
- StrR := S;
- END;
-
-
- FUNCTION StrRF(R : REAL; Field : BYTE) : STRING;
- VAR S : STRING;
- BEGIN
- Str(R:Field,S);
- StrRF := S;
- END;
-
-
- FUNCTION StrRFD(R : REAL; Field,Decimal : BYTE) : STRING;
- VAR S : STRING;
- BEGIN
- Str(R:Field:Decimal,S);
- StrRFD := S;
- END;
-
- END.