В Delphi 7 в модуле StrUtils внесены некоторые изменения.
Есть новая функция: PosEx.
Обьявление этих функций:
Code:
Function Pos(Substr: String; S: String): Integer;
Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;
Новая функция PosEx, позволяет указать начальную позицию поиска внутри строки, что избавит вас от необходимости изменения исходной строки. Незабудьте указать модуль StrUtils.
Ниже приведена реализация функции в модуле StrUtils (если вы используете более старшую версию среди разработки вы сможете сами добавить этот код и использовать его вместо функции Pos):
Code:
Function PosEx(Const SubStr, S: String; Offset: Cardinal = 1): Integer;
var
I,X: Integer;
Len, LenSubStr: Integer;
begin
If Offset = 1 Then
Result := Pos(SubStr, S)
Else
begin
I := Offset;
LenSubStr := Length(SubStr);
Len := Length(S) - LenSubStr + 1;
While I <= Len Do
begin
If S[I] = SubStr[1] Then
begin
X := 1;
While (X < LenSubStr) And (S[I + X] = SubStr[X + 1]) Do
Inc(X);
If (X = LenSubStr) Then
begin
Result := I;
Exit;
End;
End;
Inc(I);
End;
Result := 0;
End;
End;
Статья Использование PosEx взамен Pos раздела Синтаксис Текст и Строки может быть полезна для разработчиков на Delphi и FreePascal.
у меня в дельфи 7 ищет как обычная Pos...
в тексте есть 2 слова 'строка'
PosEx('строка',Memo1.Text,2) и находит
только первое слово
третий параметр я так понимаю для того чтобы найти
второе вхождение
// поиск слова по чату
procedure TMess_form1.search_text(ss: string; pos_s:integer=1);
var
Find: string;
I: integer;
begin
Find := AnsiLowerCase(ss);
for I := 0 to Memo2.Lines.Count - 1 do
if PosEx(AnsiLowerCase(Find), AnsiLowerCase(Memo2.Lines.Text),pos_s) 0 then
begin
Memo2.SetFocus();
Memo2.SelStart := PosEx(AnsiLowerCase(Find), AnsiLowerCase(Memo2.Lines.Text),pos_s)-1;
Memo2.SelLength := length(Find);
end;
end;
// поиск кнопка
procedure TMess_form1.Button6Click(Sender: TObject);
var ii:integer;
begin
ii:=Memo2.SelStart + Memo2.SelLength+1;
Memo2.SelStart := 0;
Memo2.SelLength :=0;
