Delphi World - это проект, являющийся сборником статей и малодокументированных возможностей  по программированию в среде Delphi. Здесь вы найдёте работы по следующим категориям: delphi, delfi, borland, bds, дельфи, делфи, дэльфи, дэлфи, programming, example, программирование, исходные коды, code, исходники, source, sources, сорцы, сорсы, soft, programs, программы, and, how, delphiworld, базы данных, графика, игры, интернет, сети, компоненты, классы, мультимедиа, ос, железо, программа, интерфейс, рабочий стол, синтаксис, технологии, файловая система...
Как выделить в RichEdit 4 строки

Год назад. Раздается в нашей конторе звонок. Поднимает трубку человек, там кого-то просят, кто в другой комнате ... человек оглядывает присутствующих "Как в соседню комнату перевести? Какай там адрес? www а дальше что?"

Строки нумеруются с 0!


with richedit1 do
begin
  selstart:=FindText(lines[3],0,length(text), [stWholeWord]);
  sellength:=length(lines[3]);
  selattributes.color:=clBlue;
end;

работает, если строка уникальная,
иначе можно - вычислять начало


sstart := 0;
for i := 0 to numstr - 1 do
  sstart := sstart + length(lines[i]) + 2; // numstr=3
selstart := sstart; // для 4 строки

Проект Delphi World © Выпуск 2002 - 2004
Автор проекта: ___Nikolay