home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume2 / pstrings / part01 / gtS.p < prev    next >
Encoding:
Text File  |  1991-08-07  |  144 b   |  14 lines
  1.  
  2.  
  3.  
  4.  
  5. # include "strings.h"
  6.  
  7. function gtS{(left,right: String):Boolean};
  8. {
  9. * left > right
  10. }
  11. begin
  12.     gtS := compare(left, right) = gt
  13. end{ -- gtS};
  14.