[[Lepe]]

La libreria NKlibs, tiene rutinas para buscar la ocurrencia de un caracter varias veces, además de otras muchas rutinas casi necesarias en el tratamiento de nombres de archivos, busqueda de archivos, strings y algunas cosas más.

Buscala en google.

Código Delphi [-]
// Dada una subcadena y una cadena, hace una búsqueda ultrarápida de la
// subcadena dentro de la cadena, devuelve la posición de la subcadena
// dentro de la cadena, o 0 si no se encontró la subcadena.
// Es igual que Pos, salvo que en vez de una búsqueda secuencial, usa una
// variante de Boyer-Moore (Horspool).
function BMPos(const cPttrn, cTarget: String): Integer;
function BMFirst(const cPttrn, cTarget: String): Integer;
function BMNext(iPos: Integer): Integer;
function BMLast: Integer;

// Dada una cadena devuelve un TStringList con todas las ocurrencias
/// de la subsadena.
function BMAll(const cPttrn, cTarget: String): TStringList;

Saludos