比如abcabc,从最后找第一个b的位置
解决方案 »
- 关于DBGrid排序的问题?
- to : 小和
- 我想找份delphi的工作,合肥。
- 大家评论那种报表工具好用?fastreport 能够预览修改数据保存到数据库吗?参与讨论有分!
- 为什么ADOConnection 的数据库连接提供者没有 OLE DB For sQL server?
- 如何获取网页中的北京时间
- 求解关于web service的问题!!
- 这个表格的SQL语句如何写啊!
- 远程安装
- Report build控件的问题
- 用华为SMEIDll.dll发送短信,SubmitA提交成功,但是手机却收不到怎么回事?
- 超级郁闷问题!都进来看看,不管你现在用不用得到,一定有帮助。。。请求版主帮忙置顶!!!
var
iPos: Integer;
TmpStr:string;
i,j,len: Integer;
PCharS,PCharSub:PChar;
begin
PCharS:=PChar(s); //将字符串转化为PChar格式
PCharSub:=PChar(Substr);
Result:=0;
len:=length(Substr);
for i:=0 to length(S)-1 do
begin
for j:=0 to len-1 do
begin
if PCharS[i+j]<>PCharSub[j] then break;
end;
if j=len then Result:=i+1;
end;
var
iPos: Integer;
TmpStr:string;
begin
TmpStr:=s;
iPos := Pos(Substr,TmpStr); Result:=0;
//查找Substr第一次出现位置
while iPos<>0 do
begin
Delete(TmpStr,1,iPos+length(Substr)-1);
//删除已经查找过的字符
Result:=Result+iPos;
iPos := Pos(Substr,TmpStr); //查找Substr出现位置
if iPos=0 then break;
Result:=Result+length(Substr)-1;
end;
end;
pos(substring,string);返回integer型,位置