richedit y SelLength
 

Hola! bueno estoy intentando que con un richedit, que al teclear una palabra y si esta se encuentra en un arreglo al presionar la tecla espaciadora cambie a negritas la palabra que escribí antes de presionar la tecla espaciadora, pero lo que hace es que borra lo que escribí y si continuo escribiendo lo escribe en negritas solamente quiero que cambie la palabra a negritas no que la borre y que todo el demás texto no lo cambie a negritas, estoy intentando un analizador sintáctico pero primero quiero remarcar todas mis palabras reservadas mientras el usuario las escribe.

Saludos y gracias de antemano. :D

Código Delphi [-]
 
procedure TForm1.RichEdit1KeyPress(Sender: TObject; var Key: Char);
var
contlines, x: integer;
begin
contlines:=richedit1.lines.count;
 x:=0;
        if key=' ' then //barra espaciadora
        begin
        if compila.identificar(richedit1.lines[x]) then //esta función revisa que la palabra este en el arreglo 
        begin
        richedit1.selstart:=0;
        richedit1.SelLength:=4;
        richedit1.Seltext; // este es opcional aunque lo quite borra la palabra

         with RichEdit1.SelAttributes do
        Style := Style + [fsBold];
        end;
        end;
end;

Hola
 

Pues lo primero que veo es que no quitas la selección antes de seguir escribiendo,ni tampoco quitas el estilo negrita ,debes agrgar a tu código algo así como:

Código Delphi [-]
   RichEdit1.SelStart := length(RichEdit1.Text) // o algo parecido.
   with RichEdit1.SelAttributes do
     Style := Style - [fsBold];

Espero te funcione.

Saludos.