home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / HTMIX20.ZIP / UNITS.ZIP / STRINGS.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1992-06-19  |  1.7 KB  |  70 lines
  1. unit Strings;
  2. {$O+,F+}
  3. {┌──────────────────────────────────────────────────────────────────────────┐}
  4. {│                                                                          │}
  5. {│   File    : STRINGS.PAS                                                  │}
  6. {│   Author  : Harald Thunem                                                │}
  7. {│   Purpose : String routines                                              │}
  8. {│   Updated : February 16 1992                                             │}
  9. {│                                                                          │}
  10. {└──────────────────────────────────────────────────────────────────────────┘}
  11. interface
  12.  
  13. function StrL(L : longint) : string;
  14. function StrLF(L : longint;   Field : byte) : string;
  15. function StrR(R : real) : string;
  16. function StrRF(R : real;  Field : byte) : string;
  17. function StrRFD(R : real;  Field,Decimal : byte) : string;
  18. function UpcaseStr(s: string): string;
  19.  
  20. implementation
  21.  
  22. function StrL(L : longint) : string;
  23. var S : string;
  24. begin
  25.   Str(L,S);
  26.   StrL := S;
  27. end;
  28.  
  29.  
  30. function StrLF(L : longint;   Field : byte) : string;
  31. var S : string;
  32. begin
  33.   Str(L:Field,S);
  34.   StrLF := S;
  35. end;
  36.  
  37.  
  38. function StrR(R : real) : string;
  39. var S : string;
  40. begin
  41.   Str(R,S);
  42.   StrR := S;
  43. end;
  44.  
  45.  
  46. function StrRF(R : real;  Field : byte) : string;
  47. var S : string;
  48. begin
  49.   Str(R:Field,S);
  50.   StrRF := S;
  51. end;
  52.  
  53.  
  54. function StrRFD(R : real;  Field,Decimal : byte) : string;
  55. var S : string;
  56. begin
  57.   Str(R:Field:Decimal,S);
  58.   StrRFD := S;
  59. end;
  60.  
  61.  
  62. function UpcaseStr(s: string): string;
  63. var i: byte;
  64. begin
  65.   for i := 1 to Length(s) do
  66.     s[i] := Upcase(s[i]);
  67.   UpcaseStr := s;
  68. end;
  69.  
  70. end.