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!
|