delphi 封装获取子字符串几个函数

前言

delphi7里面不像高级版本或是C#或JAVA里面有专门对字符串操作的方法，所以有时候我们需要自己做一些函数放到公共单元里面用于调用，下面列了几个字符串的截取的函数，可以直接拿来用。

函数代码

截取字符串中的某一些字符

strSource：源字符串 strBegin： 开始位置字符串 strEnd： 结束位置字符串 例：GetStr('abcd1234','bc','34')返回值：'d12' function GetStr(StrSource, StrBegin, StrEnd: string): string; var in_star,in_end:integer; begin in_star:=AnsiPos(strbegin,strsource)+length(strbegin); in_end:=AnsiPos(strend,strsource); result:=copy(strsource,in_star,in_end-in_star); end;

截取字符串中的某一些字符 strSource：源字符串 strBegin： 开始位置字符串 strEnd： 结束位置字符串 例：GetStrAll('abcd1234','bc','34')返回值：'bcd1234' function GetStrAll(StrSource, StrBegin, StrEnd: string): string; var in_star,in_end:integer; begin in_star:=AnsiPos(strbegin,strsource);// +length(strbegin) in_end:=AnsiPos(strend,strsource)+length(strend); result:=copy(strsource,in_star,in_end-in_star); end;

截取字符串中的某一些字符 strSource：源字符串 strBegin： 开始位置 strEnd： 结束位置字符串 例：GetStr('abcd1234',1,'34')返回值：'abcd12' function GetStrByIndex(StrSource:string; BeginIndex:integer;StrEnd: string): string; var in_star,in_end:integer; begin in_star:=BeginIndex; in_end:=AnsiPos(strend,strsource); result:=copy(strsource,in_star,in_end-in_star); end;