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;
//uses 要添加StrUtils ,获取一个字符串再另一个字符串中最后一次出现的位置
调用的例子:
ShowMessage (IntToStr(ReversePos('abc','abc123abc456')));
网友评论