home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a040 / 2.ddi / SHRWARE4.ARC / GENSTR.INC < prev    next >
Encoding:
Text File  |  1987-12-21  |  257 b   |  14 lines
  1. <<* GENSTR.INC *>>
  2. <<#
  3.  
  4. function ChangePat( line,oldpat,newpat : string ) : string
  5. begin
  6.   while oldpat $ line
  7.     line := stuff( line,at( oldpat,line ),len(oldpat),newpat )
  8.   endwhile
  9.   RETURN line
  10. end ChangePat
  11.  
  12. <<* EOF: GENVARS.INC *>>
  13. #>>
  14.