Delphi StrUtils.PosEx - 返回子字符串的索引值，从指定位置开始。

Delphi StrUtils.PosEx -  返回子字符串的索引值，从指定位置开始。

源码（PosEx）：

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer; var   I,X: Integer;   Len, LenSubStr: Integer; begin   if Offset = 1 then     Result := Pos(SubStr, S)   else   begin     I := Offset;     LenSubStr := Length(SubStr);     Len := Length(S) - LenSubStr + 1;     while I <= Len do     begin       if S[I] = SubStr[1] then       begin         X := 1;         while (X < LenSubStr) and (S[I + X] = SubStr[X + 1]) do           Inc(X);         if (X = LenSubStr) then         begin           Result := I;           exit;         end;       end;       Inc(I);     end;     Result := 0;   end; end;

说明：

• PosEx返回S中SubStr的索引，开始在偏移处搜索。如果偏移量为1（默认），PosEx 相当于 Pos 函数。
• 如果找不到子字符串、偏移大于S长度或偏移小于1，则PosEx返回0。

　　

示例：

?

1 2 3 4 5 6 7 8 9 10

//从第几个字符开始,搜索字串的位置 PosEx var   ss,s: string;   i: Integer; begin   ss := 'Hello Delphi7';   s := 'llo';   i := PosEx(s,ss,2);   ShowMessage(IntToStr(i));  //3 end;

 

延伸：查看Pos函数　

 

 

创建时间：2021.05.06　　更新时间：