saber si texto esta contenido en string

[Manuel]

Hola amigos del foro, quisiera saber si existe un función que realice lo siguiente: saber si texto esta contenido en string. Me explico:

Código Delphi [-]
A:='JUAN LISTO';
B:='EN EL BOSQUE JUAN LISTO BUSCABA EL TESORO';

IF estacontenido(a,b) then ShowMessage('Esta en string')
   else ShowMessage('NO esta en string');

Existira una función en delphi como 'estacontenido' en el ejemplo, o hay que crearla, si alguien me puede echar una mano por favor.

[[Héctor Randolph]]

Empezado por Manuel

Existira una función en delphi como 'estacontenido' en el ejemplo, o hay que crearla

Hola Manuel, existe una función en la unidad StrUtils, llamada AnsiContainsText que hace precisamente lo que necesitas.

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var
  A,B: String;
begin
  A:='JUAN LISTO';
  B:='EN EL BOSQUE JUAN LISTO BUSCABA EL TESORO';

   if AnsiContainsText(B,A) then 
      ShowMessage('Esta en string')
   else 
      ShowMessage('NO esta en string');
end;

Saludos

[Manuel]

gracias héctor por contestar pero AnsiContainsText, me desconoce esa función, yo trabajo en delphi 5, a pesar de colocar StrUtils en los uses.

[xander]

que esto no serviria?

Código Delphi [-]
IF Pos(a,b) > 0 then ShowMessage('Esta en string')
   else ShowMessage('NO esta en string');

[Manuel]

Neofito Experto, GRACIAS, JUSTAMENTE, ME SIENTE COMO UN TONTO CUANDO VI LA FUNCION Y ADEMAS ME ANDA MUY BIEN, GRACIAS