Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   stMatchCase en RxRichEdit (https://www.clubdelphi.com/foros/showthread.php?t=52285)

Tonio 16-01-2008 15:20:24

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

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 16-01-2008 15:40:02

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 16-01-2008 15:48:50

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 16-01-2008 15:56:19

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


La franja horaria es GMT +2. Ahora son las 11:33:54.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi