摘要： delphi 字符串查找替换函数1.提取字符串中指定子字符串前的字符串Function Before( Src:string ; S:string ): string ;VarF: Word ;beginF:= POS(Src,S) ;if F=0 thenBefore := SelseBefore := COPY(S,1,F-1) ;end ;eg: Before('123','helloworld_123')返回结果：helloworld_2.提取字符串中指定子字符串后的字符串function After(Src: string; S: string):st 阅读全文