Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.04.04;
Скачать: CL | DM;

Вниз

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

 
ДухКороляАртура ©   (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]

F1


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

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

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

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


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

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


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

> ДухКороляАртура ©   (13.03.04 13:48) [5]

В Memo - никак. Для этого есть RichEdit, а в нем - SelAttributes.


 
TUser ©   (2004-03-13 14:33) [7]

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;


 
TUser ©   (2004-03-13 14:34) [8]

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



Страницы: 1 вся ветка

Текущий архив: 2004.04.04;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.025 c
8-1070360127
chi
2003-12-02 13:15
2004.04.04
GDI


1-1079432738
Луарвик
2004-03-16 13:25
2004.04.04
Потоки не пашут паролельно! По очереди они...


14-1078712199
Kyrt
2004-03-08 05:16
2004.04.04
Accel EDA


8-1068235153
Delphi5.01
2003-11-07 22:59
2004.04.04
[Error] DirectDraw.pas(173): Type IDirectDrawSurface needs fina


1-1079259580
mixir
2004-03-14 13:19
2004.04.04
Delphi2Asm