查找高亮

 

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;