Delphi如何实现类似vb InstrRev函数的功能返回字符串最后一次出现的位置！

Question

pos无法实现

Answer 1

pos会无法实现吗？
var
  i,j:integer;
  s:string;
const 
   sp='w';s:='qwerqwtertuyeruerwasf';
for i:=low(s) to high(s) do
 if pos(sp,s)>0 then
   begin
     j:=pos(sp,s);
     delete(s,j,1);
   end;

Answer 2

楼上说的不是一回事。
cri是要找的小串，str是大串。
function getlast(cri,str:string):integer;
var Rcri,Rstr:string;
begin
   Rcri:=reverseString(cri);
   Rstr:=reverseString(str);
  result:=length(str)-pos(Rcri,Rstr)-length(cri)+2;
end;procedure TForm1.Button1Click(Sender: TObject);
begin
  showmessage(inttostr(getlast('ok','okokokok')));
end;

Answer 3

要use StrUtils单元，reserseString函数在里面，或者你自己写一个翻转函数。
还有，我忘了处理在找不到的情况下的代码。现在加上了
function getlast(cri,str:string):integer;
var Rcri,Rstr:string;
begin
   Rcri:=reverseString(cri);
   Rstr:=reverseString(str);
  if pos(Rcri,Rstr)=0 then result=0
  else result:=length(str)-pos(Rcri,Rstr)-length(cri)+2;end;

Answer 4

InstrRev功能是什么？我不懂VB！！

Answer 5

把字符串和查找串都reverse一下不就行了吗