Парсинг одинаковых тегов из хмл

[саша40]

Интересно, а что наш боец из игры Crossfire делает? Брут или чекер? Просто уверен, что второе.

[Пепел Феникса]

Сообщение от Tip.the.besT

Не могли бы вы объяснить в чём преимущества PosEx над pos, delete, copy?

тут скорее идет или PosEx или пара Pos/Delete.
первая может искать не сначала строки(собственно почему нам и нужен delete), итого мы избегаем манипуляций с менагером памяти.
особенно актуально когда и оригинальная строка тоже нужна.

[Аватар]

Tip.the.besT, посмотри разницу во времени двух алгоритмов, сам поймешь

procedure TForm1.Button1Click(Sender: TObject);
var s: String;
    i,j: Integer;
    List: TStringList;
begin
  List:=TStringList.Create;
  s:=DupeString('1234hhh',100000);
  j:=GetTickCount;
  i:=Pos('hhh',s);
  while i>0 do begin
    List.Add(Copy(s,i,3));
    Delete(s,1,i+2);
    i:=Pos('hhh',s);
  end;
  Memo1.Lines.Add(Format('Button1Click: найдено - %d, тиков - %d',[List.Count,GetTickCount-j]));
  List.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
var s: String;
    i,j,k: Integer;
    List: TStringList;
begin
  List:=TStringList.Create;
  s:=DupeString('1234hhh',100000);
  j:=GetTickCount;
  i:=PosEx('hhh',s,1);
  while i>0 do begin
    List.Add(Copy(s,i,3));
    k:=i+3;
    i:=PosEx('hhh',s,k);
  end;
  Memo1.Lines.Add(Format('Button2Click: найдено - %d, тиков - %d',[List.Count,GetTickCount-j]));
  List.Free;
end;

[саша40]

Сообщение от Tip.the.besT

Не могли бы вы объяснить в чём преимущества PosEx над pos, delete, copy?

PosEx- это метод(функция) из модуля StrUtils. Оно позволяет искать какой-то текст в другом тексте с отступом от начала(третий параметр). По результату она аналогична pos.

[Stertor]

Не могли бы вы объяснить в чём преимущества PosEx над pos, delete, copy?

В том, что эта функция позволяет указывать индекс offset, с которого следует начать поиск вхождений:

function PosEx(const SubStr, S: string; Offset: Cardinal = 1): Integer;

Если его не указывать, она будет работать как Pos.