FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Busqueda con FindDialog hacia arriba
Hola, estoy intentando realizar la busqueda de una palabra en un texto de un memo con FindDialog. He conseguido que me haga la busqueda hacia abajo con este codigo:
procedure TForm1.FindDialog1Find(Sender: TObject); var posicion:integer; palabra:string; begin if frdown in FindDialog1.Options then begin palabra:=Copy(Memo1.Text, 2+Memo1.SelStart, Length(Memo1.Text)-Memo1.SelStart); posicion:=Pos(UpperCase(finddialog1.FindText),UpperCase(palabra)); if posicion<>0 then begin Memo1.SetFocus; Memo1.SelStart:=Memo1.SelStart+posicion; Memo1.SelLength:=Length(finddialog1.FindText); end else begin ShowMessage('No encuentro '+finddialog1.FindText); memo1.SelStart:=0; end; end; end; end; Pero la busqueda hacia arriba no me sale y no se como hacerla. Me podeis ayudar, por favor?.Gracias! |
|
|
|