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

Вниз

pos or posex   Найти похожие ветки 

← →
Тимофеич   (2006-06-03 09:59) [0]

подскажите пожалуйста чем отличается pos от posex?
насколько я знаю posex есть начинаю с 7 версии,у меня 6,прост интересно чем функуия лучше

---

← →
Dmitrij_K   (2006-06-03 11:17) [1]

PosEx нужен если надо найти вхождение подстроки в строке не с первого символа, а например с середины

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;

---

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

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

Наверх

Память: 0.46 MB
Время: 0.033 c