Главная страница
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.054 c
11-1129044663
mdw
2005-10-11 19:31
2006.06.25
MCKfakeClasses, PActionList и KOLAdd


15-1148836161
Efir
2006-05-28 21:09
2006.06.25
Эфиродинамика


15-1148497229
Kerk
2006-05-24 23:00
2006.06.25
00:00


15-1149012199
Desdechado
2006-05-30 22:03
2006.06.25
Распределенные вычисления


2-1149443813
13
2006-06-04 21:56
2006.06.25
MDI приложение