Buscador de cadena de caracteres

[[maeyanes]]

Delphi ya cuenta con un función que hace algo parecido, busca en la ayuda por la función Pos.

Aquí te dejo un pequeño ejemplo de su uso:

Código Delphi [-]
Cadena_1 := 'Hoy es un buen día';
Cadena_2 := 'es';
if Pos(Cadena_2, Cadena_1) > 0 then
  ShowMessage(Format('La cadena ''%s'' si existe en la cadena ''%s''', [Cadena_2, Cadena_1]))
else
  ShowMessage('Cadena no encontrada')

Saludos...