摘要：1.提取字符串中指定子字符串前的字符串 FunctionBefore(Src:string;S:string):string; Var F:Word; begin F:=POS(Src,S); ifF=0then Before:=S else Before:=COPY(S,1,F-1); end; eg:Before('123','helloworld_123')返回结果：helloworld_ 2.提取字符串中指定子字符串后的字符串 functionAfter(Src:string;S:string):string; var F:Word; begin ... 阅读全文