BMSearch

Search for Pattern in Source, starting from pos StartPos.

If found, return pos in string, else -1.

Pascal

function BMSearch(StartPos: Integer; const Source, Pattern: String): Integer