是这样的,我想把RichEdit1下相同的内容变成同一种颜色
比如
aaa(红)
bbb
ccc(绿)
ddd
aaa(红)
dd
ccc(绿)
fff
=====================================================
RichEdit1.SelStart:=0;
RichEdit1.SelLength:=1;
RichEdit1.SelAttributes.Color:=rgb(255,0,0);
RichEdit1.SelStart:=10;
RichEdit1.SelLength:=5;
RichEdit1.SelAttributes.Color:=rgb(0,255,255);
我想肯定要查找RichEdit1内容,我不清楚FINDTEXT的用法,请大家指点一下
比如
aaa(红)
bbb
ccc(绿)
ddd
aaa(红)
dd
ccc(绿)
fff
=====================================================
RichEdit1.SelStart:=0;
RichEdit1.SelLength:=1;
RichEdit1.SelAttributes.Color:=rgb(255,0,0);
RichEdit1.SelStart:=10;
RichEdit1.SelLength:=5;
RichEdit1.SelAttributes.Color:=rgb(0,255,255);
我想肯定要查找RichEdit1内容,我不清楚FINDTEXT的用法,请大家指点一下
解决方案 »
- C的一个dll只提供了一个缓冲区的指针,如何在delphi中显示该视频
- delphi 查找问题
- Edit组件为空时比较大小出错怎么处理?
- 使用socket接收的文件無法開啟
- 急!天啊!!我不小心用Shift+Delete删除了我的源程序,请问用什么软件可以恢复!在线等待!!!!
- 我要写一个小程序,请大家帮忙。
- 怎样关闭窗口
- 问题串烧啊,现考现卖,答对有奖啊!
- 取字符串长度的函数是什么?
- struct窗口提示“CANNOT resolve unit name 'AdvGlassButton'”之类的错误,并且编译运行不了,找了好久解决办法
- 这样的语句是不是导致CPU占用100%的原因
- 其它窗口调用Data Module,总说Missing Connection or ConnectionString,但
var
i: integer;
start: integer;
begin
start := 0;
for i := 0 to RichEdit1.Lines.Count - 1 do
begin
if RichEdit1.Lines.Strings[i] = 'aaa' then
begin
RichEdit1.SelStart := start;
RichEdit1.SelLength := Length(RichEdit1.Lines.Strings[i]);
RichEdit1.SelAttributes.Color := rgb(255,0,0);
end;
if RichEdit1.Lines.Strings[i] = 'ccc' then
begin
RichEdit1.SelStart := start;
RichEdit1.SelLength := Length(RichEdit1.Lines.Strings[i]);
RichEdit1.SelAttributes.Color := rgb(0,255,255);
end;
start := start + Length(RichEdit1.Lines.Strings[i]) + 2;
end;
end;
begin
richedit1.SelectAll;
richedit1.SelAttributes.Color:=Color;
end;
//SearchStr 搜索的字符串
//StartPos 从那里还是搜索
//Length 搜索的长度
//TSearchType { stWholeWord, stMatchCase }
//返回查找到字符的启始位置 -1 表示没找到~ 0 表示在StartPos 位置~