189 8069 5689
本篇内容主要讲解“delphi怎么封装获取子字符串几个函数”，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习“delphi怎么封装获取子字符串几个函数”吧!
察布查尔锡伯网站建设公司成都创新互联,察布查尔锡伯网站设计制作，有大型网站制作公司丰富经验。已为察布查尔锡伯近1000家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的察布查尔锡伯做网站的公司定做！
前言
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;
到此，相信大家对“delphi怎么封装获取子字符串几个函数”有了更深的了解，不妨来实际操作一番吧！这里是创新互联网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！