Форум: "Начинающим";
Текущий архив: 2007.12.30;
Скачать: [xml.tar.bz2];
ВнизКак Подсветать определённые слова в 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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.006 c