Парсинг

[eval]

а что происходит при Delete, физически?

[Stilet]

с какого перепуга Delete стал ресурсоёмкой операцией?

Все строковые операции считаются ресурсоемкими потому что строку пересоздают в большинстве случаев. И их любят пихать в циклы - отсюда и стереотипы. Опять таки нужно смотреть и анализировать генофонд. Удаление может строку не пересоздавать а просто делать сдвиги, но это не совсем цикл.

а что происходит при Delete, физически?

Сказал же: открой генофонд и посмотри. Она полностью на ассемблере, в старых делфи вроде бы rep movs было, в новых посложнее уже.

[XE5]

Сообщение от Stilet

Сказал же: открой генофонд и посмотри.

Во первых, самому написать пальцы отвалятся? Во вторых, если я не знаю что такое генофонд (сомневаюсь что речь о человеческих генах), что мне открывать??? Или расспрашивать о том что мне не нужно вместо того, чтоб получить прямой ответ на свой вопрос???

[Аватар]

Код в исходниках делфи. См. в System _Delete. Оценочно на моем компе 100000 с Delete ~ 65 сек, с PosEx - 0.047 сек. Delphi7. Существенно, не правда ли?

[XE5]

Аватар

procedure TForm1.Button2Click(Sender: TObject);
var
  i, n: integer;
  test_string: string;
begin
  for i := 1 to 100000 do
    test_string := test_string + '1';
  n := GetTickCount;
  for I := 1 to 100000 do
  Delete(test_string, 1, 1);
  ShowMessage(IntToStr(GetTickCount - n));
end;

Полторы секунды, среда XE5.

[Аватар]

А так?

procedure TForm1.Button1Click(Sender: TObject);
var s1,s: String;
    List: TStringList;
    i,iPos1,iPos2: Integer;
    j: Cardinal;
begin
  s1:='';
  for i:=1 to 100000 do s1:=s1+Format('<div class="primer"><p>Primer%d</p></div>',[i]);
  List:=TStringList.Create;
  s:=s1;
  j:=GetTickCount;
  while pos('<p>', s)>0 do begin
    Delete(s,1,pos('<p>',s)+2);
    List.Add(Copy(s,1,pos('</p>',s)-1));
  end;
  Label1.Caption:=IntToStr(GetTickCount-j);

  Memo1.Lines.Assign(List);

  List.Clear;
  iPos1 := 0;
  s:=s1;
  j:=GetTickCount;
  while PosEx('<p>',s,iPos1+1)>0 do begin
    iPos1:=PosEx('<p>',s,iPos1+1);
    iPos2:=PosEx('</p>',s,iPos1+1);
    if iPos2>0 then List.Add(Copy(s,iPos1+3,iPos2-iPos1-3));
    iPos1 := iPos2;
  end;
  Label2.Caption:=IntToStr(GetTickCount-j);

  Memo2.Lines.Assign(List);
  List.Free;
end;

среда XE5

Видимо существенно улучшили код

[XE5]

2.5 минуты против 31 миллисекунды. Я в код не вникал, но сдаётся виноват не Delete. Предположительно функция pos проигрывает функции PosEx.

[Аватар]

Предположительно функция pos проигрывает функции PosEx.

Крайне мало вероятно. Pos на asm-е, PosEx - перебор в цикле WHILE. При использовании Delete PosEx и не нужен - поиск от 1, все равно Pos из PosEx будет вызван. По крайней мере в D7

[Stilet]

Во первых, самому написать пальцы отвалятся?

Во-первых я не тебе это писал, во-вторых я даже комментировать твой выпад не буду, поскольку каждый программист знает что если есть какие-то исходники, в которых заключен спорный момент нужно из проанализировать.

[Аватар]

Видимо существенно улучшили код

2.5 минуты против 31 миллисекунды.

Беру свои слова обратно Замени String на AnsiString. Думаю, что быстрей будет