发信人: 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版 ▇
▇版副印(试用)▇
▇▇▇▇▇▇▇▇ |
|