Ola este es mi primer post, a ver tengo esto
Código Delphi
[-]
procedure TForm2.Image1Click(Sender: TObject);
var
Posicion : longint;
Cadena : string;
begin
Cadena:= txtBox.Text;
Posicion:= Pos(Cadena, Form1.Memo1.Text) -1;
Form1.Memo1.SelStart:= Posicion;
Form1.Memo1.SelLength:= Length(Cadena);
Form1.Memo1.SetFocus;
Close;
end;
El problema está ke si una palabra la pongo para buscar en mayusculas y en el texto a buscar esta en minuscula no lo selecciona. ¿Me podeis hechar un cable?
Saludos y Gracias