Как Подсветать определённые слова в RichEdit
Ekzot © (2007-12-05 10:49:00)
Знаю что надо задать массив с этими словами потом перебирать
через функцию pos в цикле но не могу придумать алгоритм. Помогите
плз.
Palladin (2007-12-05 10:53:00) [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;
Наверх 
ЧАТ |
Орешник |
|
