[poli-smen]

Сообщение от borockov

Цикл для каждого слова? а если у меня 1000 слов, я должен буду написать тысячу циклов?

Зачем 1000 циклов? Цикл один, просто выполняться он будет 1000 раз.

Сообщение от borockov

Можешь коротенький примерчик просто я незнаю как внутри цикла for использовать while, по отдельности я знаю как использовать эти циклы, но вместе как то не использовал.

Вот, вроде работает:

Код:

var
  i: Integer;
  FindWord: string;
  pos: Integer;
begin
  RichEdit1.Lines.BeginUpdate;
  try
    for i := 0 to RichEdit2.Lines.Count - 1 do
    begin
      FindWord := RichEdit2.Lines[i];
      pos := 0;
      while True do
      begin
        pos := RichEdit1.FindText(FindWord, pos, Length(RichEdit1.Text) - pos, []);
        if pos < 0 then Break;
        RichEdit1.SelStart := pos;
        RichEdit1.SelLength := Length(FindWord);
        RichEdit1.SelText := RichEdit3.Lines[i];
        Inc(pos);
      end;
    end;
  finally
    RichEdit1.Lines.EndUpdate;
  end;
end;

И вот ещё что: RichEdit2 и RichEdit3 используй только если тебе нужно чтобы пользователь видел эти списки, если же их не нужно показывать, то лучше используй вместо этого TStringList.