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

本文整理自网络，侵删。

 
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;


调用的例子:

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

相关阅读 >>

Delphi xe7 up1 调用android振动功能

在Delphi中简单的调用单元unit实例

Delphi的字符截取函数leftstr,midstr,rightstr的介绍以及字符串拆分

Delphi判断字符串是否是数字、字母、大小写字母

Delphi中关于canvas.textout的用法

Delphi tchart使用经验小结

Delphi 遍历某字段并插入到combobox

Delphi通过idsmtp发送邮件的简单代码

Delphi将图片缩放成指定大小

Delphi 锁住listview防止刷新

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

转载请注明出处：木庄网络博客 » Delphi如何获取一个字符串再另一个字符串中最后一次出现的位置