Текст

← →
ДухКороляАртура © (2004-03-12 22:16) [0]

Ситуация такая : есть текст в Memo, как определенноее слово в этом тексте выделить? Заранее спасибо.

← →
Anatoly Podgoretsky © (2004-03-12 22:24) [1]

SelStart/SelLength

← →
ДухКороляАртура © (2004-03-12 22:52) [2]

Не догоняю, можно чуть по подробнее

← →
Defunct © (2004-03-12 23:02) [3]

← →
Юрий Зотов © (2004-03-12 23:11) [4]

Я тут подсчитал...

Ответ "SelStart/SelLength" - 18 символов
Ответ "F1" - 2 символа.

Итого, "чуть по подробнее" оказалось в 9 раз короче. Хотя и действительно намного подробнее, с этим не поспоришь.
:о)

← →
ДухКороляАртура © (2004-03-13 13:48) [5]

Выделить в смысле сделать слово например жирным

← →
Юрий Зотов © (2004-03-13 14:01) [6]

uses strutils;

...

with richedit1 do begin
Lines.BeginUpdate;
i:=pos("слово",text);
if i<>0 then begin
repeat begin
selstart:=i;
sellength:=length("слово");
selattributes.style:=fsBold;
i:=posex("слово",text,i);
end
until i=0;
Lines.EndUpdate;
end;

ЗЫ. 310 символов, безпробелов - 225.

Текст Найти похожие ветки