Delphi 简单字符串截取函数

本文整理自网络，侵删。

 
function WrapArtistName(s,s1,s2: string): string;
var pos_start, pos_end: integer;
begin
  pos_start:= Pos(s1,s);
  Pos_end:= Pos(s2,s);
  if (pos_start=0) or (Pos_end=0) or (pos_start>=pos_end)
    then begin Result:= ''; Exit; end;
  Result:= Trim(Copy(s,pos_start+6,pos_end-pos_start-8));
end;


procedure TForm1.FormCreate(Sender: TObject);
begin
Caption:=WrapArtistName('<a href="/html/?1667.html" target="_blank">CHM一键反编译1.0</a>','href','target');
end;
 

相关阅读 >>

Delphi多线程程序示例

Delphi wmi 取显卡gpu信息

Delphi中使用spcomm来实现串口通讯

Delphi 判断某个磁盘分区是否存在

Delphi xe tparallel.for的用法

Delphi图片base64编码

Delphi 首字母转换大写

Delphi 图像灰度化处理

Delphi 5-7 桥接让Delphi xe2 datasnap中间层支持Delphi低版本开发客户端

Delphi 如何禁止用户更改窗体的大小

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

转载请注明出处：木庄网络博客 » Delphi 简单字符串截取函数