Buscador de cadena de caracteres

[pichi Vignola]

Hola a todos.

Necesito hacer una funcion o procedimiento que me busque una cadena de caracteres dentro de otra. Ejemplo: una variable tipo string llamada Cadena_1 posee el texto 'Hoy es un buen dia' y por otro lado ingreso en otra varible tipo string lamada Cadena_2 el texto 'es'. En otra variable Resultado de tipo booleano me de Falso si no se encuentra lo que esta en la variable Cadena_2 dentro de la variale Cadena_1. En este caso tiene que dar Verdadero la variable Resultado porque el texto 'es' si se encuentra dentro de la misma.


Disculpen si no me explico muy bien. Saludos y Gracias....

[[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...

[ContraVeneno]

Aquí hay una función que hace lo que pides


Changos, aquí todo mundo se adelanta

[pichi Vignola]

Quiero agradecer por la ayuda.... Muchas gracias...