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')));