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

本篇内容主要讲解"delphi怎么封装获取子字符串几个函数"，感兴趣的朋友不妨来看看。本文介绍的方法操作简单快捷，实用性强。下面就让小编来带大家学习"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;

到此，相信大家对"delphi怎么封装获取子字符串几个函数"有了更深的了解，不妨来实际操作一番吧！这里是网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！