新代码, 通过空格分割要高亮的内容, 你把你图片里的顿号改成空格就行了

huang714

于 2019-04-15 08:25:16 发布

阅读量336

点赞数

分类专栏： C++ builder Delphi 文章标签：新代码通过空格分割要高亮的内容你把你图片里的顿号改成

本文链接：https://blog.youkuaiyun.com/huang714/article/details/88715998

版权

C++ builder 同时被 2 个专栏收录

63 篇文章

订阅专栏

Delphi

44 篇文章

订阅专栏

本文介绍了一种在富文本编辑器中实现高亮显示关键词的算法。通过遍历文本并使用FindText方法查找关键词位置，然后修改选中文本的颜色来达到高亮效果。适用于需要在大量文本中突出显示特定词汇的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

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;