// SubStr 是要查找的子字串, S 是原始字串, OrdNum 是要找第幾個
代碼: 選擇全部
function PosEx2(const SubStr, S: string; OrdNum: integer): integer;
var
i: integer;
begin
Result := 0;
For i:=1 to OrdNum do
begin
Result := PosEx(SubStr, S, Result+1);
if Result > 0 then
continue
else
begin
Result := 0;
break;
end;
end;
end;