精华区 [关闭][返回]

当前位置:网易精华区>>讨论区精华>>编程开发>>● Delphi>>Object Pascal语言>>Re:又没有直接返回某个子字符串在另一个字符串最后出现的位置?

主题:Re:又没有直接返回某个子字符串在另一个字符串最后出现的位置?
发信人: showskyws(示天)
整理人: teleme(2001-02-10 23:11:29), 站内信件
【 在 folmorse 的大作中提到:】
:返回某个子字符串在另一个字符串最后出现的位置? 
:要返回Integer类型的。


//我花了十分钟,帮你现写了一个函数

  function lastpos(substr,s:string):integer;
    var s_tmp:string;
       i:integer;
  begin
    if (length(s)>0) and (pos(substr,s_tmp)>=0) then
    begin
      for i:=length(s) downto 0 do s_tmp:=s_tmp+s[i];
      result:=length(s)-pos(substr,s_tmp)+1
    end
    else result:=-1
  end;



----
我每天都在努力,因为每天都要进步!
沉迷网络,程序人生,这就是我!
欢迎光临我的个人主页:示天工作室 


▇▇▇▇▇▇▇▇
▇网易北京社区▇
▇  DELPHI版 ▇
▇版副印(试用)▇
▇▇▇▇▇▇▇▇

[关闭][返回]