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:


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 (http://delphi.about.com/cs/adptips2003/a/bltip0203_3.htm) que hace lo que pides


Changos, aquí todo mundo se adelanta :D

[pichi Vignola]

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