Главная страница
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.039 c
6-1140176269
MegaVolt
2006-02-17 14:37
2006.06.25
Как обработать исключения которые генерит TIdFTP?


5-1133421374
vladmk
2005-12-01 10:16
2006.06.25
Создание компонента


3-1146041888
Delphi basic
2006-04-26 12:58
2006.06.25
Crystal Peports из Delphi


3-1146332166
Express
2006-04-29 21:36
2006.06.25
ADOCommand – как перейти на следующую запись???


15-1149154067
Александр Б.
2006-06-01 13:27
2006.06.25
Шаблоны