home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / INFO / PIBTERM / PIBT41S4.ARC / STRINGMA.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1987-12-01  |  1.8 KB  |  58 lines
  1. UNIT StringMan;
  2.  
  3. INTERFACE
  4.  
  5. USES
  6.    Dos, Crt, GlobType;
  7.  
  8. FUNCTION Min( A, B: INTEGER ) : INTEGER;
  9.  
  10. FUNCTION Max( A, B: INTEGER ) : INTEGER;
  11.  
  12. FUNCTION Hex_To_Dec( S : AnyStr; Default : INTEGER ) : INTEGER;
  13.  
  14. FUNCTION Dec_To_Hex( Integr : WORD ) : ShortStr;
  15.  
  16. FUNCTION IToS( Integr : INTEGER ) : ShortStr;
  17.  
  18. FUNCTION Dupl( Dup_char : Char; Dup_Count: INTEGER ) : AnyStr;
  19.  
  20. FUNCTION Trim( S : AnyStr ) : AnyStr;
  21.  
  22. FUNCTION LTrim( S : AnyStr ) : AnyStr;
  23.  
  24. FUNCTION UpperCase( S: AnyStr ): AnyStr;
  25.  
  26. PROCEDURE CopyStoA( S : AnyStr; VAR A ; Length_A : INTEGER );
  27.  
  28. PROCEDURE CopyS2AR( S : AnyStr; VAR A ; Length_A : INTEGER );
  29.  
  30. FUNCTION Read_Ctrls( S : AnyStr ) : AnyStr;
  31.  
  32. FUNCTION Write_Ctrls( S : AnyStr ) : AnyStr;
  33.  
  34. IMPLEMENTATION
  35.                                    (* Find minimum/maximum of numbers   *)
  36. {$I MINMAX.MOD   }
  37.                                    (* Convert hex string to decimal #   *)
  38. {$I HEXTODEC.MOD }
  39.                                    (* Convert decimal # to hex string   *)
  40. {$I DECTOHEX.MOD }
  41.                                    (* Convert integer to string         *)
  42. {$I ITOS.MOD     }
  43.                                    (* Duplicate a character into string *)
  44. {$I DUPL.MOD     }
  45.                                    (* Trim blanks from end of string    *)
  46. {$I TRIM.MOD     }
  47.                                    (* Trim blanks from front of string  *)
  48. {$I LTRIM.MOD    }
  49.                                    (* Convert string to uppercase       *)
  50. {$I UPPERCAS.MOD }
  51.                                    (* Copy string to array of char      *)
  52. {$I COPYSTOA.MOD }
  53.                                    (* Read string with control chars    *)
  54. {$I READCTRL.MOD }
  55.                                    (* Write string with control chars   *)
  56. {$I WRITCTRL.MOD }
  57. END   (* StringMan *).
  58.