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 正则表达式的匹配模式

Delphi 服务操作

Delphi-基础（for循环）

Delphi 把单张图片保存到access数据库

Delphi 计算程序运行时间

Delphi 获取listbox1多选的值

Delphi removewhitespaces 过滤字符串所有空格

Delphi 手机app打开一个安卓系统支持的文件，比如 pdf

Delphi free和freeandnil之间的区别

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

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