|
Год назад. Раздается в нашей конторе звонок. Поднимает трубку человек, там кого-то просят, кто в другой комнате ... человек оглядывает присутствующих "Как в соседню комнату перевести? Какай там адрес? 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 строки
|
|