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-

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

  • 发表于:
  • 原文链接https://kuaibao.qq.com/s/20180731G0C0C000?refer=cp_1026
  • 腾讯「云+社区」是腾讯内容开放平台帐号(企鹅号)传播渠道之一,根据《腾讯内容开放平台服务协议》转载发布内容。
  • 如有侵权,请联系 yunjia_community@tencent.com 删除。

扫码关注云+社区

领取腾讯云代金券