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.
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 begin
if compila.identificar(richedit1.lines[x]) then begin
richedit1.selstart:=0;
richedit1.SelLength:=4;
richedit1.Seltext;
with RichEdit1.SelAttributes do
Style := Style + [fsBold];
end;
end;
end;