Поиск в richedit который начинается снова при нажа

[belkeandrey]

Ребят, 2й день ломаю голову, ничего не выходит. Сделал поиск в richedit, все ищет, слова выделяет. Но нужно, чтобы при введении нового значения в edittext и нажатии кнопки "Поиск" убралось выделение от предыдущего поиска и заменилось новым. Вот мой листинг. Здесь все работает, но текст сначала ВЕСЬ выделяется красным и СО ВСЕГО снимается жирность... Помогите!!!
Код Delphi

procedure TForm1.Button7Click(Sender: TObject);
const
  //разделитель
  D = ['.', ',', ':', ';', '!', '?', '-',')','(', ' ', #9, #10, #13];
var
  S,sW,sW1, sWord : String;
  i, p1, Len, LenW, LenW1 : Integer;
begin
  //текст из RichEdit.
  S:=RichEdit1.Text;
  Len:=Length(S);
  p1:=0;
  //искомое слово
  sWord := AnsiUpperCase(Edit1.Text);
  for i:=1 to Len do begin
    //пропускаем разделители
    if S[i] in D then Continue;
    //начало слова
    if (i = 1) or (S[i - 1] in D) then p1 := i;
    //конец слова
    if (i = Len) or (S[i + 1] in D) then begin
      //извлекаем слово
      LenW:=i-p1+1;
      sW:=AnsiUpperCase(Copy(S, p1, LenW));
      //сравниваем с шаблоном
      if sW = sWord then begin
        //выделяем найденное слово
        RichEdit1.SelStart := p1-1;
        RichEdit1.SelLength := LenW;
        RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style + [fsBold];
        RichEdit1.SelAttributes.Color := RGB(0,0 , 200);
        end;
        //пытаемся возвратить символам ПРЕДЫДУЩЕГО поиска вид по умолчанию, но красным выделяется ВСЕ. Хотя последующие циклы работает
        if sWord <> sW then begin
        RichEdit1.SelStart := p1+1;
        RichEdit1.SelLength := LenW;
        RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
        RichEdit1.SelAttributes.Color := clRed;
        end;
      end;
 
  end;

[Аватар]

Сразу все и без приморочек

RichEdit1.SelStart := 0;
RichEdit1.SelLength := Length(RichEdit.Text);
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
RichEdit1.SelAttributes.Color := нужный цвет

[belkeandrey]

Сообщение от Аватар

Сразу все и без приморочек

RichEdit1.SelStart := 0;
RichEdit1.SelLength := Length(RichEdit.Text);
RichEdit1.SelAttributes.Style := RichEdit1.SelAttributes.Style - [fsBold];
RichEdit1.SelAttributes.Color := нужный цвет

В смысле сразу все? Что Вы имели в виду?

[bulldog5293]

В смысле сразу все? Что Вы имели в виду?

код оптимизирован без доп движений

[belkeandrey]

Спасибо большое, я все понял! Да, код уменьшился, но моя задача все равно не решена. Наверное, я неправильно поставил вопрос. Мне надо, чтобы при первом нажатии на кнопку "поиск", выделились все слова, соответствующие запросу, а при повторном нажатии выделение снялось, и начался поиск по следующему запросу. Но! При снятии выделения должен сохраниться изначальный формат текста (цвет, шрифт, подчеркивания, курсив и т.д.). Может быть это нужно реализовывать другим способом?

[Аватар]

Тогда прийдется при каждом поиске запоминать в динамический массив записей значения SelStart, SelLength и Color и перед очередным поиском в цикле по этому массиву восстановливать цвет и сбрасывать Bold.

[belkeandrey]

Идея ясна, тоже об этом думал. А можете подсказать немного как это будет выглядеть, а то с массивами пока не разобрался(((

[Аватар]

type TMyRecord = record
       SelStart: Integer;
       SelLength: Integer;
       Color: TColor;
     end;

var MyArray: array of TMyRecord;
    MyCount: Integer;

  MyCount:=0;  //Начальнон значение

  Inc(MyCount);  //Увеличить размерность массива на 1
  SetLength(MyArray,MyCount);
  MyArray[MyCount-1].SelStart:=...
  MyArray[MyCount-1].SelLength:=...
  MyArray[MyCount-1].Color:=...

  for i:=0 to MyCount-1 do //цикл по массиву

[belkeandrey]

Огромное спасибо! Буду разбираться!