delphi过滤字符串头部和尾部得到中间部分

本文整理自网络，侵删。

 var
sString: string;
iPos,iLen: integer;
begin
sString:= 'http://www.3464.com/article.asp?articleid=4750';
iLen:= Length(sString);
iPos:= Pos('/',sString);
if iPos=0 then
Exit;
sString:= Copy(sString, iPos+2,iLen-iPos);
iPos:= Pos('/',sString);
if iPos=0 then
Exit;
sString:= Copy(sString, 1,iPos-1);
end; 

相关阅读 >>

Delphi获取其它进程窗口句柄的3种方法

Delphi xe6 android 查看电池信息

Delphi格式化wmi中的datetime

Delphi idhttp读取网页重定向

Delphi 获得memo、richedit的光标位置

Delphi 从其它access数据导入数据到本地数据库

Delphi中隐藏程序进程

Delphi 实现拦截api的钩子(hook)

Delphi firedac 如何按整型(byte)读取 mysql tinyint(1) 类型字段？

Delphi 实现文件拖放完整代码

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

转载请注明出处：木庄网络博客 » delphi过滤字符串头部和尾部得到中间部分