home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a046 / 5.img / TEMPLATE / GENSTR.INC < prev    next >
Encoding:
Text File  |  1992-04-01  |  314 b   |  15 lines
  1. <<* GENSTR.INC *>>
  2. <<* (C) 1991 SHEN YANG WHITE HORSE SOFTWART COMPANY  *>>
  3. <<#
  4.  
  5. function ChangePat( line,oldpat,newpat : string ) : string
  6. begin
  7.   while oldpat $ line
  8.     line := stuff( line,at( oldpat,line ),len(oldpat),newpat )
  9.   endwhile
  10.   RETURN line
  11. end ChangePat
  12.  
  13. <<* EOF: GENVARS.INC *>>
  14. #>>
  15.