Главная страница
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.052 c
2-1149599334
Fiallo4ka
2006-06-06 17:08
2006.06.25
ADO


2-1149410039
Wood
2006-06-04 12:33
2006.06.25
WebSnap приложение.


2-1149685074
AlexanderMS
2006-06-07 16:57
2006.06.25
Как хранится переменная типа String в памяти.


1-1147277774
swan
2006-05-10 20:16
2006.06.25
ПИД-регулирование


4-1143534352
serg111111
2006-03-28 12:25
2006.06.25
Как в имеющемся приложениия написать сервис?