home *** CD-ROM | disk | FTP | other *** search
/ Source Code 1992 March / Source_Code_CD-ROM_Walnut_Creek_March_1992.iso / msdos / pibterm / pibt41s1.arc / CMPSTR.MOD < prev    next >
Encoding:
Text File  |  1987-12-03  |  255 b   |  12 lines
  1. FUNCTION CompareStr( VAR S1, S2 : AnyStr ) : Comparer;
  2.  
  3. BEGIN (* CompareStr *)
  4.  
  5.    IF ( S1 = S2 ) THEN
  6.       CompareStr := Equal
  7.    ELSE IF ( S1 < S2 ) THEN
  8.       CompareStr := Less
  9.    ELSE
  10.       CompareStr := Greater;
  11.  
  12. END   (* CompareStr *);