[davin4u]

Привет, возможно кто то интерисовался подобным:
есть RichEdit в него вводится текст, если введено ключевое слово то оно окрашивается в заданный цвет, вот код:

Код:

  Form1.RichEdit1.SelStart:= pos(CurrentWord,Form1.RichEdit1.Lines[0])-1;
  Form1.RichEdit1.SelLength:=Length(CurrentWord);//в CurrentWord хранится последнее введенное слово, т.е. текст от пробела до пробела
  Form1.RichEdit1.SelAttributes.Color:= HColor;
  Form1.RichEdit1.Lines.Add(CurrentWord);
  Form1.RichEdit1.SelAttributes.Color:=clBlack;

Как я понял тут SelStart-это положение с которого начинается выделение
SelLength-это длина выделения, ну SelAttributes.Color это понятно цвет. А вот со следующей строкой проблема, Form1.RichEdit1.Lines.Add(CurrentWord) осуществляет переход на следующую строку и добавляет текст из переменной CurrentWord, при этом получается примерно следующее:

Код:

текст текст текс CurrentWord
CurrentWord

А мне нужно чтобы просто мой текст CurrentWord окрасился без перехода на следующую строку. Кто знает подскажите плиз, буду очень благодарен