Zur Sicherheit habe ich mal nicht meine NextPos geholt, sondern hier diese
http://www.swissdelphicenter.ch/de/showcode.php?id=474. Wenn ich hier Pos mit Search_BMH_Unrolled ersetze fehlen immer ein haufen Wörter.
Delphi-Quellcode:
function NextPosSwiss(SearchStr, Str: string; Position: Integer): Integer;
begin
Delete(Str, 1, Position - 1);
Result := Search_BMH_Unrolled(Str,SearchStr); //Pos(SearchStr, Str);//
if Result = 0 then Exit;
if (Length(Str) > 0) and (Length(SearchStr) > 0) then
Result := Result + Position + 1;
end;