para el gestor
Código Delphi
[-]
select * from tabla1 where 'El frio era tan intenso q dolía la cara' like '*'+Campo+'*';
para delphi
Código Delphi
[-]
Query.SQL.Text:='select * from tabla1 where '+''''+'El frio era tan intenso q dolía la cara'+''''+' like '+''''+'%'+''''+'+'+Campo+'+'+''''+'%'+'''';
Query.Open
Puesto de otra manera
Código Delphi
[-]
Query.SQL.Text:='select * from tabla1 where '+''''+ORACION.TEXT+''''+' like '+''''+'%'+''''+'+'+Campo+'+'+''''+'%'+'''';
Query.Open