Necesito buscar una cadena en un TDecRichEdit, que es un componente deribado de TRichEdit. Para buscar estoy usando el dialogo de Buscar TFindDialog, pero aunque muestra la opcion de hacer coincidir mayusculas y minisculas, esa funcion no funciona, con lo que se hace realmente dificil encontrar algo a no ser que este escrito correctamente. Ademas encuentra bien la primera palabra, pero para ver los resultados sucesivos, no pierde el foco la ventana de buscar y por lo tanto hay que ir picando en el TDecRichEdit, el codigo que le he puesto es este:
Código Delphi
[-]
procedure TFVerEditar.FD1Find(Sender: TObject);
var
FoundAt: LongInt;
StartPos, ToEnd: Integer;
begin
with MNotasDir do
begin
if SelLength <> 0 then
StartPos := SelStart + SelLength
else
StartPos := 0;
ToEnd := Length(MNotasDir.Text) - StartPos;
FoundAt := FindText(FD1.FindText, StartPos, ToEnd, [stMatchCase]);
if FoundAt <> -1 then
begin
MNotasDir.SelStart := FoundAt;
MNotasDir.SelLength := Length(FD1.FindText);
MNOtasDir.SetFocus;
end
Else
ShowMessage('No encuentro ' + FD1.FindText);
end;
end;
Esta sacado de la ayuda de delphi.
Un saludo y gracias.