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

Вниз

Как Подсветать определённые слова в RichEdit   Найти похожие ветки 

 
Ekzot ©   (2007-12-05 10:49) [0]

Знаю что надо задать массив с этими словами потом перебирать через функцию pos в цикле но не могу придумать алгоритм. Помогите плз.


 
Palladin ©   (2007-12-05 10:53) [1]

Function vtPos(Const SS,S:String;p_nFrom:Integer=1;p_doFwd:Boolean=True):Integer;
Var
nSSLen,i,c:Integer;
Begin
Result:=0;
nSSLen:=Length(ss);
If p_doFwd Then
 Begin
  c:=1;
  For i:=p_nFrom to Length(s) Do
   If s[i]=ss[c] Then
    Begin
     Inc(c);
     If c=nSSLen+1 Then
      Begin
       Result:=i-c+2;
       Break;
      End;
    End Else c:=1;
 End Else
 Begin
  c:=nSSLen;
  For i:=p_nFrom Downto 1 Do
   If s[i]=ss[c] Then
    Begin
     Dec(c);
     If c=0 Then
      Begin
       Result:=i;
       Break;
      End;
    End Else c:=nSSLen;
 End;
End;



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

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

Наверх




Память: 0.46 MB
Время: 0.016 c
15-1196462270
Petr V. Abramov
2007-12-01 01:37
2007.12.30
.Net 2-й fw


2-1196870689
WFS
2007-12-05 19:04
2007.12.30
Как увеличить label по высоте, если строка в нем не помещается


8-1171988250
ndg
2007-02-20 19:17
2007.12.30
изменить яркость, контраст и цветность


2-1197020808
Кевларвестов Семен
2007-12-07 12:46
2007.12.30
Передача между variant ами значения 0000 как строки


2-1197033931
Максим
2007-12-07 16:25
2007.12.30
Проверка