Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.043 c
2-1149215454
Василий
2006-06-02 06:30
2006.06.25
Копирование изображения


2-1149511088
$Cursor
2006-06-05 16:38
2006.06.25
Собственный курсор из ресурса


6-1139695044
Yeg
2006-02-12 00:57
2006.06.25
Изменения в ICQ-протоколе...


5-1130167379
Ling
2005-10-24 19:22
2006.06.25
Свой TEdit


15-1149247860
Free0n
2006-06-02 15:31
2006.06.25
Стойкость стего алгоритма