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中的处理事件 application.processmessages

Delphi编解码js字符串

Delphi 10.3.1 android沉浸式透明状态栏

Delphi 实现文件防删除非亢占(非hook)

Delphi 清空目录以及子目录

Delphi 四舍五入含小数点函数

Delphi tstringlist 自带 split 用法

Delphi结合winrar生成自解压文件

Delphi之完美splash方案

Delphi 控制memo1滚动条

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

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