本文整理自网络,侵删。
//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 操作 pdf -- 使用 acrobat sdk 初探
Delphi idhashmessagedigest 获取文件md5
Delphi idhashmessagedigest md5用法
更多相关阅读请进入《Delphi》频道 >>