Cita:
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