814123 2018-01-04 15:05 采纳率: 50%
浏览 1240
已采纳

delphi richedit里比较文字?

比如:richedit1里有“DELPHI”。
richedit2里有“DELPHI是一门开发语言”。
那么单击按钮richedit2里的"DELPHI"就以红色加组字体显示,其他的不变。

麻烦老师给个思路或者实例参考!

///////
就是要这样的效果呢?
图片说明

RichEdit2里的文字,R和我显示红色。

  • 写回答

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;
    
    
    本回答被题主选为最佳回答 , 对您是否有帮助呢?
    评论
查看更多回答(4条)

报告相同问题?

悬赏问题

  • ¥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 飞机曲面部件如机翼,壁板等具体的孔位模型