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获取dos命令行输出函数运行cmd命令并获取结果【方法2】

Delphi 62进制转10进制

Delphi tstreamreader 和tstreamwriter

Delphi 新建一个txt文档函数

Delphi编程启动服务停止服务新建服务的方法

Delphi模仿“千千静听”滚动标题栏

Delphi xe 新功能试用：多种皮肤样式静、动态设置方法

Delphi-edit中只能输入数字且只能输入一个小数点

Delphi判断某个程序是否已经启动

手动创建和部署一个classes.dex 查看更多关于 classes.dex 的文章文件

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