主要用来判断某一个字符串中是否存在另一个字符串，存在可以返回大于0的integer，反之是0，再给你个函数，是利用pos的例子，看看：
{ PosEx返回Sub在Source中第Index次出现的位置，若出现的次数不足，返回0，若找不到，返回0}
{ 例如：PosEx('abcdbcd','bcd',2)返回5，PosEx('abcdbcd','adb')返回0,PoxEx('abc','a',2)返回0 }
function PosEx(const Source, Sub: string; Index: integer): integer;
var
Buf : string;
i, Len, C : integer;
begin
C := 0;
Result := 0;
Buf := Source;
i := Pos(Sub, Source);//判断是否存在
Len := Length(Sub);
while i <> 0 do
begin
inc(C);
Inc(Result, i);
Delete(Buf, 1, i + Len - 1); //找到后用完进行删除
i := Pos(Sub, Buf); //继续寻找
if C >= Index then Break;
if i > 0 then Inc(Result, Len - 1);
end;
if C < Index then Result := 0;
end;
