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 向windows窗口发送alt组合键的问题

Delphi 快速读取写入注册表参数值的函数

Delphi一个抓屏的函数

Delphi 日期字符串转换日期格式

Delphi 强迫将半型英数字转换成全型英数字

Delphi 字符或符号在字符串出现的次数

Delphi free和freeandnil之间的区别

Delphi中怎样得到系统当前“输入法”名称？

Delphi 字符串中末位是双字节字符的处理（避免最后一位为乱码）

Delphi中的各种文件类型介绍

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

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