5条回答
- 堕落恶魔_Delphi 2018-01-05 08:15关注
新代码, 通过空格分割要高亮的内容, 你把你图片里的顿号改成空格就行了
procedure TForm1.Button1Click(Sender: TObject); procedure _HighLightText(AStr: string); var nPos, nStrLength, nAllLength: Integer; begin nPos := 0; nAllLength := RichEdit2.GetTextLen; nStrLength := Length(AStr); nPos := RichEdit2.FindText(AStr, nPos, nAllLength, [stMatchCase]); //如果大小写不敏感就用[] while nPos > -1 do //如果只想高亮第一个就不用循环 begin RichEdit2.SelStart := nPos; RichEdit2.SelLength := nStrLength; RichEdit2.SelAttributes.Color := clRed; nPos := nPos + nStrLength; nPos := RichEdit2.FindText(AStr, nPos, nAllLength, [stMatchCase]); end; end; var nStr: string; i: Integer; begin RichEdit2.SelectAll; RichEdit2.SelAttributes := RichEdit2.DefAttributes; with TStringList.Create do try StrictDelimiter := True; Delimiter := ' '; //这里规定要高亮的内容用空格分隔 DelimitedText := RichEdit1.Text; for i := 0 to Count - 1 do begin nStr := Strings[i].Trim; if nStr <> '' then _HighLightText(nStr); end; finally Free; end; end;
本回答被题主选为最佳回答 , 对您是否有帮助呢?解决 无用评论 打赏 举报
悬赏问题
- ¥15 file converter 转换格式失败 报错 Error marking filters as finished,如何解决?
- ¥15 ubuntu系统下挂载磁盘上执行./提示权限不够
- ¥15 Arcgis相交分析无法绘制一个或多个图形
- ¥15 关于#r语言#的问题:差异分析前数据准备,报错Error in data[, sampleName1] : subscript out of bounds请问怎么解决呀以下是全部代码:
- ¥15 seatunnel-web使用SQL组件时候后台报错,无法找到表格
- ¥15 fpga自动售货机数码管(相关搜索:数字时钟)
- ¥15 用前端向数据库插入数据,通过debug发现数据能走到后端,但是放行之后就会提示错误
- ¥30 3天&7天&&15天&销量如何统计同一行
- ¥30 帮我写一段可以读取LD2450数据并计算距离的Arduino代码
- ¥15 飞机曲面部件如机翼,壁板等具体的孔位模型