查找高亮

最新推荐文章于 2024-08-05 15:45:00 发布

seagull327

最新推荐文章于 2024-08-05 15:45:00 发布

阅读量429

点赞数

文章标签： string

本文链接：https://blog.csdn.net/haiou327/article/details/6593585

版权

var
  str, s1, s: string;
  i: integer;
begin
  s := '''' + lst1.Items[lst1.ItemIndex] + '''';
  s1 := lst1.Items[lst1.ItemIndex];
  with Mmo4 do
  begin
    d := SelStart + SelLength;
    str := Copy(mmo4.Text, i + 1, Length(mmo4.Text));
    PosReturn := Pos(uppercase(s), uppercase(str));
    if PosReturn <> 0 then
    begin
      SetFocus;
      SelStart := PosReturn + i - 1;
      SelLength := Length(s); //高亮显示
    end
    else
    begin
      d := SelStart + SelLength;
      str := Copy(mmo4.Text, i + 1, Length(mmo4.Text));
      PosReturn := Pos(uppercase(s1), uppercase(str));
      if PosReturn <> 0 then
      begin
        SetFocus;
        SelStart := PosReturn + i - 1;
        SelLength := Length(s1); //高亮显示
      end
    end;
  end;

end;