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;

-END-

长按下方二维码关注微卡智享