colocar en color la validacion de formula en componente memo

[ecfisa]

Empezado por morfeo21

Gracias por su pronta respuesta.
De ser el componente TRichEdit es posible realizar esta operacion. y si no es molestia que propiedad deberia utilizar para este efecto

Hola.

Te pongo un ejemplo por que creo que va a ser más fácil de entender. Agregá un componente TRichEdit (RichEdit1) y desde el Object Inspector, en su propiedad Lines escribí la expresión:

6 * ( 3  +  1 )

Los paréntesis se encuentran en este caso en RichEdit1.Text[5] y RichEdit1.Text[15] por lo que para ponerlos en rojo y negrita basta con hacer:

Código Delphi [-]
procedure TForm1.btnResaltarParentesisClick(Sender: TObject);
begin
  with RichEdit1 do
  begin
    // (
    SelStart:= 4;   
    SelLength:= 1; 
    SelAttributes.Color:= clRed;  // rojo
    SelAttributes.Style:= [fsBold]; // negrita
   // )
    SelStart:= 14;
    SelLength:= 1;
    SelAttributes.Color:= clRed;  // rojo
    SelAttributes.Style:= [fsBold]; // negrita
  end;
end;

Un saludo.

[morfeo21]

realizare la pruebas del código y te comento . gracias por la ayuda