stMatchCase en RxRichEdit

[Tonio]

Detro de un .pas tengo este fragmento de código:

with RE2 do
begin

Donde:=FindText(sLibro,
                    SelStart+1,
                    GetTextLen,
                    [stMatchCase]);   <-  Aquí me da el error
                            
                        .....

[Error] uDiccionaBA.pas(355): Incompatible types: 'TRichSearchType' and 'TSearchType'

El error me lo da si lo hago con un RxRichEdit, con RichEdit, no.

Puede ser algo muy simple, pero no consigo dar con ello.
Gracias de antemano y próspero año nuevo.
Tonio

[[xEsk]]

No tengo este componente, pero lo que te esta diciendo el error, es que estas intentando usar un "TSearchType" donde debería ir un "TRichSearchType".

Por eso cuando lo pruebas con un RichEdit normal, si te funciona, porqué "TSearchType" forma parte de la VCL de Borland al igual que el TRichEdit.

Con la ayuda del "Control + click" intenta buscar dónde esta definido "TRichSearchType" y sabrás que valores poner en este campo que te da el error.

Saludos.

Editado: He buscado los posibles valores de TRichSearchType y son estos:

Código Delphi [-]
TRichSearchType = (stWholeWord, stMatchCase, stBackward, stSetSelection);

[[xEsk]]

Vale, he visto que tienen el mismo nombre, prueba en poner esto a ver si te funciona:

Código Delphi [-]
with RE2 do
begin

Donde:=FindText(sLibro,
                    SelStart+1,
                    GetTextLen,
                    [RxRichEd.stMatchCase]);

Saludos.

[Tonio]

xEsk, muchas gracias, ni se ha quejado, ha ido de maravilla, es decir, funciona.
Gracias otra vez, un saludo.
Tonio.