美文网首页
Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

作者: netppp | 来源:发表于2021-02-11 23:52 被阅读0次

uses  StrUtils;



function ReversePos(SubStr, S: String): Integer;

var

  i : Integer;

begin

  i := Pos(ReverseString(SubStr), ReverseString(S));

  if i > 0 then i := Length(S) - i - Length(SubStr) + 2;

  Result := i;

end;

 //uses 要添加StrUtils  ,获取一个字符串再另一个字符串中最后一次出现的位置



调用的例子:


ShowMessage (IntToStr(ReversePos('abc','abc123abc456')));

相关文章

网友评论

      本文标题:Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置

      本文链接:https://www.haomeiwen.com/subject/ppfdxltx.html