delphi 截取两个字符之间的内容

本文整理自网络，侵删。

 
delphi 截取两个字符之间的内容

function copyBegin2EndStr(begindex, endindex, source: string): string; //截取两个字符之间的内容
var
  n, m: Integer;
begin
  n := Pos(begindex, source);
  m := Pos(endindex, source);
  Result := Copy(source, n + 1, m - n - 1);
end;


function GetStrBetween(const SrcStr, AStartTag, AEndTag: string): string; //推荐使用这个 20200111 添加
var
  I, k: Integer;
  lSrc: string;
begin
  lSrc := SrcStr;
  I := pos(AStartTag, lSrc);
  if I > 0 then
  begin
    Delete(lSrc, 1, I + Length(AStartTag) - 1);
    k := pos(AEndTag, lSrc);
    if k > 0 then
    begin
      Result := Copy(lSrc, 1, k - 1);
      Exit;
    end;
  end;
  Result := '';
end;

另外一个截取用法：http://www.delphitop.com/html/zifuchuan/4930.html
http://www.delphitop.com/html/zifuchuan/505.html
 

相关阅读 >>

Delphi dll窗体调用解

Delphi 开发安卓时判断进入非活动

Delphi d10.x 在android 9及更高版本下使用Delphi获取设备序列号？

Delphi 莫名奇妙的错误 Delphi is not a valid integer value

Delphi 获取时间日期

Delphi 清空某个form的控件内容,用tag来判断

Delphi 调用sql和mysql存储过程

Delphi使用spcomm串口通信 串口号大于10出错的解决办法

常用的几个网络函数和系统函数

Delphi结构体的方法

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

转载请注明出处：木庄网络博客 » delphi 截取两个字符之间的内容