本篇内容主要讲解“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怎么封装获取子字符串几个函数”有了更深的了解，不妨来实际操作一番吧！这里是开发云网站，更多相关内容可以进入相关频道进行查询，关注我们，继续学习！
这篇文章主要介绍“win7浏览器兼容模式怎么设置”，在日常操作中，相信很多人在win7浏览器兼容模式怎么设置问题上存在疑惑，小编查阅了各式资料，整理出简单好用的操作方法，希望对大家解答”win7浏览器兼容模式怎么设置”的疑惑有所帮助！接下来，请跟着小编一起来学…
免责声明：本站发布的图片视频文字，以转载和分享为主，文章观点不代表本站立场，本站不承担相关法律责任；如果涉及侵权请联系邮箱：360163164@qq.com举报，并提供相关证据，经查实将立刻删除涉嫌侵权内容。
微信扫一扫 
