delphi截取字符串

本文整理自网络，侵删。

 //delphi截取字符串

function GetStr(StrSource,StrBegin,StrEnd:string):string; 
var 
in_star,in_end:integer; 
strtmp:string; 
begin 
in_star:=AnsiPos(strbegin,strsource)+length(strbegin); 
strtmp:=copy(strsource,in_star,length(strsource)); 
in_end:=AnsiPos(strend,strtmp); 
result:=copy(strsource,in_star,in_star + in_end-in_star -1); 
end; 

相关阅读 >>

Delphi研究之驱动开发篇（六）--利用section与用户模式程

Delphi http协议验证访问datasnap rest 服务器

Delphi xe8安卓下汉字转gb2312 urlencode代码

Delphi 有关pchar.strcopy的实验

Delphi文件操作的一些函数

Delphi获取优盘的id

Delphi 操作 pdf -- 使用 acrobat sdk 初探

Delphi twebbrowser静音

Delphi idhashmessagedigest 获取文件md5

Delphi idhashmessagedigest md5用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi截取字符串