如何使用类似pos的,但要从右边起找?

Question

POS是从左边开始找的,我想从右边开始找,怎办?
字符串中有中文与字母一齐的,所以不可能每一位来判断.
有什么办法呢
我在帮助中只找到StrRScan,但这是找字符的,不是找字符串的.

Answer 1

pos 返回不就是所找字符的位置吗，如果从右边的话不就是用字符串的长度减去pos的返回值吗？

Answer 2

从哪边找，似乎一样的。
在delphi7中有个函数PosEx不知道对你有没有用处。

Answer 3

不是,如果是这样子的话
str:='一二三四一二'pos('二',str)
这样就找到第一个'二',其实我想找第二个'二',是最后的那一个'二'.

Answer 4

uses StrUtils;function RightPos(Substr, S: string): Integer;
begin
  Result := Pos(ReverseString(Substr), ReverseString(S));
  if Result > 0 then Result := Length(S) - Result + 1 - Length(Substr) + 1;
end; { RightPos }