Текущий архив: 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.01 c