zhu1205的专栏

原创 Delphi 从右开始查找的pos函数----RightPos

<br />它的作用是在字符串Str中查找字符串Substr，返回值是Substr在Str中第一次出现的位置，如果没有找到，返回值为0，与Pos函数不同的是，它是从Str右边开始搜寻，支持Widestring。<br />function RightPos(const SubStr, Str: string): Integer;<br />var<br />   i, j, k, LenSub, LenS: Integer;<br />begin<br />   Result:= 0;<br />   Le