求助文本高亮显示!

Question

    Richedit1.SelAttributes.Color := clRed;
    Richedit1.SelAttributes.Style := [fsBold];
    Richedit1.lines.Add('公式名称：编辑');
    Richedit1.SelStart:=14+Length(trim('公式名称：编辑'));
    Richedit1.Tag:=Richedit1.SelStart-1;
    Richedit1.SelLength:=4;
    Richedit1.SelectAll;

Answer 1

selstart(0);
sellength(getlength());

Answer 2

不行啊!根本没用!整个RICHEDIT都变色了!
能不能向EDITPLUS那样时时关键字高亮显示呀!

Answer 3

由于
Richedit1.SelectAll;
整个RICHEDIT都变色了!如果像editplus那样，你的工作量将会很大。完全可以找一个这样的vcl来帮你。
到http://www.torry.net上看看，一定会有满足你要求的。

Answer 4

Richedit1.lines.Add('这是普通的');    Richedit1.SelAttributes.Color := clRed;
    Richedit1.SelAttributes.Style := [fsBold];
    Richedit1.lines.Add('这是高亮的');
    Richedit1.SelStart:=14+Length(trim('这是高亮的'));
    Richedit1.Tag:=Richedit1.SelStart-1;
    Richedit1.SelLength:=4;
    Richedit1.SelectAll;

Answer 5

不知为什么,还是不行!
能不能用"Procedure"这个关键字作一个例子!
我的意思就是用户在Richedit里边写边识别.写完一个关键字立马识别并变色!
能不能写的具体点,写一些注释!以为我比较笨!
劳驾!

Answer 6

你这样做有点像做词法分析器你得每keyup一次，就得就近对你的关键字表对比一下。

Answer 7

你看看mwedit控件的原码吧，mwedit在海阔天空有下载

Answer 8

MW怎么是英文的,看不懂!
我也不问了!谁能把RichEdit的所有方法和事件以及属性,全部用中文写上注解,这100分就归谁!
说到做到!